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Today, there are more Apples in 
schools than any other computer. 

Unfortunately there are still more 
kids in schools than Apples. 

So innocent youngsters (like your 
own) may have to fend off pacte of bully 
nerds to get some time on a computer. 

Which is why it makes good sense 
to buy them an Apple® lie Personal Com¬ 
puter of their very own. 

The lie is just like the leading 
computer in education, the Apple He. 
Only smaller. About the size of a three- 
ring notebook, to be exact. 

Of course, since the lie is the 


legitimate offspring of the lie, it can which you might be interested in yourself, 
access the worlds largest library of educa- For example, 3-in-l integrated 
tional software. Everything from Sticky- business software. Home accounting and 
bear Shapes™ for preschoolers to SAT test tax programs. Diet and fitness programs. 


BuAYS^TO^TRAVEL: 1 
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With a lie, your kid can do something constructive after school. Like learn to write stories. 

Or learn tofty. Or even learn something slightly more advanced. Like multivariable calculus. 

preparation programs for college hopefuls. Not to mention fun programs for 
In fact, the lie can run over 10,000 the whole family. Like “Genetic Mapping” 
programs in all. More than a few of and “Enzyme Kinetics” 










■ away from home. 


Ana me Apple lie comes complete mat could drive up the price oi a less- and appetites continue to grow at an 

senior machine considerably. alarming rate, there’s one thing you 


ahu uie Appie 11 c comes compiei 
with most everything you need to start 
computing in one box. 

Including a free 4-diskette course 
to teach you how—when your kids get 
tired of your questions. 

As well as a long list of built-in 
features that would add about $800 to 
the cost of a smaller-minded computer. 

128K of internal memory—twice 
the power of the average office computer. 

A built-in half-high 140K disk drive 


And built-in 
electronics for 
adding accesso¬ 
ries like a print¬ 
er, a modem, 
an AppleMouse 
or an extra disk 
drive when the 
time comes. 


So while your childrens shoe sizes homS^^Sool. 


know can keep up with 
them. Their Apple lie. 

To learn more 
about it, visit any 
authorized Apple deal¬ 
er. Or talk to your 
own computer experts. 

As soon 0 
as they get 


© 1985Apple ComputerIncApple,andthe Apple logo are registered trademarks of Apple Computer Inc. Sticfybear Shapes is a trademark of Optimum Resource. For an authorized Apple dealer 
nearest you call ( 800 ) 538 - 9696 . In Canada, call ( 800 ) 268-7796or ( 800 ) 268 - 7637 . 





Earth will be destroyed in 12 minutes 
to make way for a hyperspace bypass. 

Should you hitchhike into the next galaxy? 
Or stay and drink beer? 




Simply slip the disk in your computer and suddenly you 
are Arthur Dent, the dubious hero of THE HITCHHIKER’S 
GUIDE TO THE GALAXY™ aside¬ 
splitting masterwork of interactive 
fiction by novelist Douglas 
Adams and Infocom’s Steve 
Meretzky. And eveiy deci¬ 
sion you make will shape 
the story’s outcome. Sup- 


E- IT THE '.'ILLhGE HUE THEM GO IJOETH 

In that case you’ll be off on the most mind- 
bogglingly hilarious adventure any earthling 
AK= rw J 




You communicate - and the story 
responds - in full sentences. Which 
means that at every turn, you 
have literally thousands of alter¬ 
natives. So if you decide it might 
be wise, for instance, to wrap 
a towel around your head, you 
just say so: 

>WRAP THE TOWEL AROUND MY HEAD 


But don’t panic. You’ll be accompanied 
every light-year of the way by your trusty 
Hitchhiker’s Guide, which you can always 
depend on for up-to-the-nanosecond 
information. Well, almost always: 
>CONSULT THE HITCHHIKER'S GUIDE 
ABOUT THE MOLECULAR HYPER WAVE 
PINCER 


And the story responds: 


And the story responds: 

THE RAVENOUS BUGBLATTER BEAST OF TRAAL 
IS COMPLETELY BEWILDERED* IT IS SO DIM 
IT THINKS IF YOU CAN'T SEE IT* IT CAN'T 
SEE YOU* 

But be careful about what you say. Or one 
moment you might be strapped down, forced 
to endure a reading of the third worst poetry in the 
galaxy; the next you could be hurtling through 
space with Marvin the Paranoid Android aboard 
a stolen spaceship. 

And simply staying alive from one zany 
situation to the next will require every proton 
of puzzle solving prowess your mere mortal mind 
can muster. Even simple tasks can put you at 
wit’s end: 

>op£n the door 

And the story responds: 

THE DOOR EXPLAINS, IN A HAUGHTY 
TONE, THAT THE ROOM IS OCCUPIED BY A 
SUPER-INTELLIGENT ROBOT AND THAT 
LESSER BEINGS (BY WHICH IT MEANS YOU) 

ARE NOT TO BE ADMITTED* "SHOW ME SOME 
TINY EXAMPLE OF YOUR INTELLIGENCE," 

IT SAYS, "AND MAYBE, JUST MAYBE I MIGHT 
RECONSIDER*" 



SORRY, THAT PORTION OF OUR SUB-ETHA 
DATABASE WAS ACCIDENTALLY DELETED LAST 
NIGHT DURING A WILD OFFICE PARTY* 

So put down that beer, take that towel off your 
head, open the door, hitchhike down to your local 
software store today and pick up THE HITCH¬ 
HIKER’S GUIDE TO THE GALAXY. Before they 
put that bypass in. 

Still not convinced? Try our Sampler Disk 
which includes portions of four different types of 
stories for a paltry $7.95. If it doesn’t get you 
hooked on the addictive pleasures of Infocom, 
return it for a full refund. If it does, you can apply 
the price toward any Infocom story. You can’t lose! 



Other interactive science fiction stories from Infocom include 
PLANETFALL,™ in which you’re stranded on a mysterious deserted 
world. STARCROSS," a puzzling challenge issued eons ago and light- 
years away. SUSPENDED,” the race to stabilize an entire planet’s 
life support systems. And A MIND FOREVER VOYAGING," 
a radically new work of serious science fiction in which you explore 
the future of mankind. 



For more information call 1-800-262-6868. 
Or write to us at 125 CambridgePark Dr., 
Cambridge, MA 02140. 


©1985 Infocom. THE HITCHHIKER'S GUIDE TOTHE GALAXY is a trademark of Douglas Adams. 
PLANETFALL, STARCROSS, SUSPENDED and A MIND FOREVER VOYAGING are trademarks of Infocom. 




IF YOU CAN FIND 
A BETTER PROGRAM 
WEIL BUY IT FOR YOU! 



• An efficient, 80-column professional 
word processing system which includes 
a spelling checker and built-in 

• Contains all the features you’ll need for 
everyday word processing, plus most of 
the sophisticated features found in 
more expensive programs: document 
chaining, form letter printout, page 
separations, horizontal and vertical 
scrolling, and more. 


• A complete general information storage 
and retrieval system with report-writing, 
graphics, statistics, and label-making 
capabilities. 

• Exclusive X-SEARCH, X-SORT, and 
X-CHART features allow you to cross¬ 
search any category of information; sort 
items alphabetically, numerically, or by 
date; break down statistical information 
into categories; and graphically view 


• 250 rows and up to 250 columns (128K 
version) provide up to 62,500 cells 



With Timeworks you get more 
power for your dollar 

You can use each program alone. Or 
interface this trio - one at a time if you like 
- into a completely integrated productivity 
system that delivers all the power and 
features most of you will ever need... at 
a cost that lets you enjoy their use. 

Look for these and other Timeworks pro¬ 
grams at your favorite dealer. Or contact 
Timeworks, 444 Lake Cook Road, Deer¬ 
field, IL 60015. Phone: (312) 948-9200. 


With Timeworks you get more 
than software 

You Get Our Customer Technical 
Support Team 

At the other end of our toll-free hotline, 
you’ll find our full-time Customer Techni¬ 
cal Support Team. Free of charge to all 


•With Timeworks you get oa 


If you can find anything that works better 
for you, simply send us your Timeworks 
program, your paid receipt, and the name 
of the program you want, along with your 
check or credit card number for any retail 
price difference. If it’s available, wt' 


Available for Apple, IBM, 
Commodore 64 and 128, 
and Atari Computers.*" 



More power for your dollar. 
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Eastern u.s. (Disks 7-' 


aids, cities, highways, rivers, and lakes located In that region. 
Enough detail is available on each disk for either visual or 
Instrument cross-country navigation. 

A STAR Scenery Disk (available 4th quarter 1985) covers a 
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Introducing EasyPlex? The new, 
easy-to-use electronic mail system 
from CompuServe. 

Finally! Electronic Mail that’s so easy to 
use you can start composing and sending 
messages the first time you get online. 

Designed for various experience levels, 
EasyPlex has a menu mode with simple, 
easy-to-follow directions for beginners, 
and it lets experienced users save time by 
working in the prompt or command modes. 
With EasyPlex, you can compose, edit, send, 
file, and take advantage of sophisticated 


options previously available gnly with more 
expensive services. ll 

CompuServe’s EasyPlex lets friends and 
relatives, associations and club members 
communicate any time of the day or night. 
And small business owners, real estate 
professionals, insurance agents, lawyers, 
writers, etc can communicate quickly and 
simply—either interoffice or interstate. 

“It’s Easy.” “Just Plex it!” 

Best of all, EasyPlex is available to all 
CompuServe subscribers. And, along with 
EasyPlex, you get hundreds of valuable and 
entertaining computing options. Plus the 
assurance of belonging to the largest, fastest 


growing computer information service in 
the world and the premier supplier of 
business information to FORTUNE 500 
companies. 

Start communicating! To buy a 
CompuServe Subscription Kit see your 
nearest computer dealer. To receive our 
informative brochure or to order direct 
call or write: 

CompuServe 

Information Services, RO. Box 20212 

5000 Arlington Centre Blvd., Columbus, Ohio 43220 

800 - 848-8199 

In Ohio, call 614-457-0802 
An H&R Block Company 


ANNOUNCING THE 
FAMILY SOFTWARE SPECTACULAR: 


BUY3.GET1FREE. 



CHOOSE FROM 
OVER 50 LEADING TITLES. 


What do you call an offer that brings together, for the 
first time ever, five leading brands of home software? 

The Family Software Spectacular! 

And it’s your opportunity to choose a free software pro¬ 
gram from the best tides on the market today. All you have to 
do is buy any combination of three titles from any participat¬ 
ing brands during this special offer period. And we’ll send 
you another one of your choice-free/ 

It’s a one-of-a-kind value your family shouldn’t miss. 


For years Fisher-Price has been known for helping chil¬ 
dren develop skills as they play. With Fisher-Price™ Learning 
Software, your child can develop skills in five key areas: math, 
language, creativity, basic learning and computer literacy. 

Your child will love developing and testing language 
skills with thehelpofPETER RABBITREADING,apro- 
gram that uses voice to teach sound and letter recognition 
in words. 


WINDHAM CLASSICS.™ CLASSIC 
NOVELS COME TO LIFE. 


Pick up Windham Classics, graphic interac¬ 
tive fiction based on some of the greatest adventures 
of all time. 


They’re great for kids, yet fun for all ages. 

Enjoy “THE WIZARD OF OZ.™ ” You are Dorothy, 
and each of your decisions determines your adventure. 
There’s more than one adventure to be had as you meet old 
friends and new in the land of Oz. 


Constantly erasing and retyping? Unsure of your spell¬ 
ing? WORD PROCESSOR WITH SPELLCHECKER is 
exactly what you need. This full featured word processor 
includes the 50,000 word AMERICAN HERITAGE 
DICTIONARY™ spellchecker which detects over 99% of 
misspelled words. 

The full line also includes 
FILE& REPORTand 
SPREADSHEET - titles 
that represent the best 
values on the market 













From pre-school counting to high-school compositions, 
Spinnaker offers the high quality educational programs 
you have come to expect. For example, there’s the HOME¬ 
WORK HELPER™ series which provides step-by-step 
methods for improving writing and math skills and helps 
kids tackle otherwise troublesome school assignments. 


C. Clarke and Erie Stanley Gardner. Each story unfolds with 
you in the center of the action- and completely in control. In 
PERRY MASON: THE CASE OF THE MANDARIN 
MURDER,™ you are the world famous criminal lawyer. Chal¬ 
lenge the evidence. Cross-examine the witness. Only you 
can prove your client’s innocence. And time is running out. 

A SOFTWARE OFFER FOR ALL AGES! 

Any software offer including something for everyone in 
the family is certainly fantastic. But combine that with a free 
product offer and what you have is something spectacular. 
Look for the specially marked boxes of The Family Software 
Spectacular at your retailer. 

She SZunily ^Software^Spect a cular 
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A WORD PROCESSING PROGRAM] 

AN INFORMA TION MAN A GEMENT PROGRAM 

A TELECOMMUNICA TIONS PROGRAM ! 


ALL THREE PROGRAMS, ON ONE DISKETTE!, FOR ONLY $49.95 *! 

“Quite simply the best! The highest rating possible... the package should be part of every 
(computer) library.’’— analog computing 

“Russ Wetmore has done an EXCELLENTjob! The program is flexible, powerful and 
very easy to use. $49.95 buys a heck of a lot of program.”— review by arthur leyenberger 

“Performance: ★ ★ ★ ★ (Excellent) Value: ★ ★ ★ -k(Excellent) 

This three-in-one package is a bargain... one of the finest values on the market. ” 











TO BECOME 
ERED SPECIES. 



As more and more of our daily activities become “computerized;' survival of the 
fittest will come down to this: Those who become successful will share a common 
understanding-a knowledge of computers. 

Thai's why TIME-LIFE BOOKS brings you this brand 
new series. UNDERSTANDING COMPUTERS does what 
was once thought impossible. Help us understand 
how computers do the impossible. 

Through straightforward language (no "computer¬ 
ese") and easy-to-follow illustrations, UNDERSTANDING 
COMPUTERS tells you what computers really are. ** 

How to think about them. And how they can make your life easier-from where you 
work to where you work out. 

Starting with Computer Basics, you'll get a thrilling "inside view" of what happens 
inside that incredible black box. 

You'll discover how everything a computer does 
can be reduced to a simple ON' or OFF; like a 
switch. And you'll learn how computers can be 
taught everything from predicting the weather to 
teaching a foreign language to reducing your 
heating bills, 

Step by step your understanding will grow until 



you find yourself confident and at home in i 
the Computer Age. 

So end all your wondering and enjoy 
the wonder of it all. Examine Computer 
Basics FREE for 10 days. If you aren't satis¬ 
fied, send it back and owe nothing. Other¬ 
wise keep it and pay just $12.95 ($15.95 in 
Canada) plus shipping and handling. Fu¬ 
ture volumes will come one about every 
other month. Same free trial. Keep only the 
books you want. Cancel anytime. 

Mail the coupon today. And see how 
easy understanding computers can be. 


EXAMINE COMPUTER BASICS 
FOR 10 DAYS FREE. 


te Computer Basics for 10 days' free 


COMPUTERS volumes un 


,_.jre UNDERSTANDING 
;rthe terms described in thi 


UNDERSTANDING COMPUTERS 










Thus, the machine language state¬ 
ment IDA #$00:STA $9D suppresses all 
Hemal messages. This is the normal con¬ 
dition when a BASIC program is running. 
IDA #$80:STA $9D displays only the 
control messages (the normal condition 
when you're in BASIC direct mode), and 
LDA #$40:STA $9D displays only the spe¬ 
cial Hemal error messages. Note that 
Commodore computers also have a built- 
in routine (SETMSG, accessed at $FF90) to 
set the Hemal message control flag. To use 
it, load the accumulator with the value 
you want to put in location $9D, then JSR 
$FF90. 


Atari Disk RAM? 

I have an Atari 600XL and 1050 disk 
drive. My 600XL has 16K RAM. Does 
my disk drive add any RAM to the 
computer? If so, how much does it add? 

Doug Howard 
Strictly speaking, you lose some usable 
computer memory when operating an 
Atari (or most other computers) with a 
disk drive. To use the drive, you must load 
DOS (the Disk Operating System) into 
memory. DOS is a machine language pro¬ 
gram that on the Atari is roughly 6K long. 
Therefore, when DOS is present, you lose 
memory that’s otherwise available. 

However, in a broader sense the disk 
drive expands system memory tremen¬ 
dously. A disk drive lets you run much 
larger programs (and process much more 
data) than the computer could otherwise 
handle. For example, a program that's too 
big to fit into memory can be broken into 
two separate parts or modules. When the 
first program module is finished, it loads 
and runs the second module. The second 
module could in turn load a third, and so 
on. Since the program modules link them¬ 
selves together as they go, this technique 
is often called chaining. 

Though many BASIC programs store 
data within the program itself (usually in 
DATA statements), you can also store data 
outside the computer in a disk file. An 
Atari 1050 drive with DOS 2.5 or 3.0 
stores about 126K of data on each disk. An 
810 drive (or 1050 drive with DOS 2.0 or 
2.5 formatted for single density) stores 
about 88K on a disk. Of course, the com¬ 
puter's memory can’t hold that much data 
all at once. But it can access parts of it 
whenever it wants. When one disk fills up 
with data, you start filling another, and so 
on. In this sense, a disk drive extends 
system memory to infinity. 


Multicolor Player/Missiles 

I have written many simple games on 
my Atari 800XL using player/missile 
graphics and would like to start using 
different colors. How do I make multi¬ 
color P/M graphics? 

' ° r Rnh RnHis 


Unfortunately, players can be only one 
color. However, you can simulate a multi¬ 
color player by overlapping two or more 
players. Define the players' shapes so that 
solid areas of underlying (lower priority) 
players show through holes (blank areas) 
in overlapping (higher priority) players. 
One player can be used for each color you 
need to define. Of course, to maintain the 
effect, you'll need to move the overlapped 
players in unison. 

You can obtain additional colors by 
setting bit 5 of the player priority register 
(location 623 decimal). If you add 32 to the 
number in the priority register, then any 
area where two players overlap becomes a 
third color. The following program dis¬ 
plays a red player and a blue player. The 
region where they overlap becomes green. 
You can find more information on multi¬ 
color players in COMPUTERS First Book 
of Atari Graphics. 

DD10 POKE 106, INT (PEEK (106) 
/8)*8-B:GRAPHICS 0tS-P 
EEK(106 >iREM PROTECT M 
EMORY ON A 2 K BOUNDAR 
Y 

CC 20 POKE 559,621 POKE 704,5 
SiPOKE 705,13SiP0KE 53 
256,1iPOKE 53257,1lPOK 
E 53277,3ISETC0L0R 2,0 
> 0 

CB 30 POKE 623,331 POKE 54279 
,SlPMBASE"256*S+1024iF 
OR A-PMBASE TO PMBASE+ 
511:POKE A,0:NEXT A 
LH 40 FOR A-0 TO 7:POKE PMBA 
8E+100+A,255.POKE PMBA 
SE+356+A,2SSlNEXT A 
EB 50 FOR A-20 TO 245: POKE 5 
3248,AlPOKE 53249,A+10 
lNEXT AiBOTO 50 


Immortal PC Programs? 

I have an IBM PC. Sometimes when I 
save a program and later try to erase it 
from my disk, the computer says "File 
not found." Yet when I load the pro¬ 
gram it is still there. How can I get rid of 
these unwanted programs? 

Richard Bookal 
You are evidently enclosing the filename 
in quotation marks when using the ERASE 
command from DOS. Although BASIC re¬ 
quires that you enclose or at least precede 
filenames with quotes, DOS does not—in 
fact it won’t find an existing file when 
quotes are used. To delete a file from disk, 
use ERASE filename.ext from DOS or 
KILL "filename.ext" from BASIC. When 
you’re KILLing a program, the second pair 
of quotes is optional. 


Trackball Tricks 

I purchased a trackball for my Atari 800 
computer system and would like to use 
the device in my programs. I have 
looked in the hardware manual and 


elsewhere, but can't find any infor¬ 
mation about how this is done. 

Wesley Wortman 
Atari and Commodore computers (which 
can use the same trackball) read the device 
like a joystick. If you have an Atari com¬ 
puter, plug the trackball into joystick port 
1, then type in and run the one-line pro¬ 
gram below. By moving the ball in various 
directions, you can see what numbers it 
generates. 

10 PRINT STICK(O): GOTO 10 

A trackball that fits an Atari joystick 
port will also work on a Commodore VIC- 
20 or 64, again returning the same values 
a joystick would. If you have a Commo¬ 
dore 64, run the following program after 
plugging the trackball into joystick port 2. 
10 PRINT CHR$(19);PEEK(56320)AND15; 

CHR$(20);CHR$(32):GOTO10 

After running either program with 
the trackball, you may find it interesting 
to rerun it with a joystick for comparison. 
As you'll see, the ball is very sensitive and 
tends to return rapidly changing values, 
whereas a joystick returns the same value 
as long as you push it in a particular 
direction. Of course, in either case the 
device just generates numbers. It's your 
job to write a program that uses those 
numbers in some meaningful way—to an¬ 
imate a figure, draw a picture, or what¬ 
ever. You can learn more about using 
joysticks in COMPUTEI's Second Book 
of Atari and COMPUTEI's First Book of 
Commodore 64. 


ML Disk Routine 

I need a machine language routine that 
opens, writes, and properly closes a 
disk file on a Commodore disk drive. 

Rick Elwell 


Since we're asked this type of question 
often, here's a short example that writes a 
20-character sequential file to disk, and 
works with any Commodore computer and 
disk drive except the 128 in CP/M mode. 
You’ll need a machine language assembler 
to enter this program. The explanatory 
comments after the semicolons are, of 
course, optional: 


LDA 

TAY 

LDX 

JSR 

LDA 

LDX 

LDY 

JSR 

JSR 

LDX 

JSR 


;Set file number, 
secondary address 
;and device 
number, 

;call SETLFS 
routine. 

;Set filename 
length, 

#<NAME ;low byte of 
filename 

#>NAME ;and its high byte, 
$FFBD ;call SETNAM 

routine. 

$FFC0 ;Call OPEN 

routine. 

#3 ;Set file number, 

SFFC9 ;call CHKOUT 


#3 

#8 

$FFBA 

#10 
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NEW FALL RELEASES 

Entertainment and information from COMPUTE! Books this fall! 

These brand-new, top-of-the-line books offer you the latest home 
and business applications for your Apple, Commodore, and IBM 
personal computers. 
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LDX 

WRITE LDA 
CMP 

BEQ 

JSR 


EXIT 


JSR 


#0 ;X is a counter. 

CHARS,X ;Get a byte, 

#255 ;look for end 

marker, 

EXIT ;quit when found. 

$FFD2 ;Call CHROUT 

routine, 

;bump counter, 
WRITE ;write entire text. 

#3 ;Set file number, 

$FFC3 ;call CLOSE 

routine. 

$FFCC ;Call CLRCHN 

routine. 


RTS 

NAME .ASC "0:FILE,S,W" 

CHARS .ASC "THIS IS A TEST FILE." 
•BYT 255 


Though there are other ways to get 
the job done, it's usually simplest and 
most reliable to use the computer's built- 
in routines. The SETLFS routine ($FFBA) 
sets the logical file number, device num¬ 
ber, and secondary address, and SETNAM 
($FFBD) sets the filename. The filename 
prefix 0: designates drive 0 and the suffix 
,S,W designates a sequential file opened 
for writing. Different suffixes are used for 
other operations—for instance, the suffix 
,S,R would prepare the program to read 
this file. 

After OPEN ($FFC0) opens the file, 
CHKOUT ($FFC9) sets it for output (writ¬ 
ing). CHKIN ($FFC6) would be used here 
if you wanted to set the file for input 
(reading). The file is written one byte at a 
time with CHROUT ($FFD2). Use CHRIN 
($FFCF) or GETIN ($FFE4) to input bytes 
when reading a file. After the write is 
complete, CLOSE ($FFC3) closes the file 
and CLRCHN ($FFCC) restores the system 
to normal, reenabling keyboard input and 
screen output. You should always CLOSE 
every disk file individually. Don’t try to 
use CLALL ($FFE7) as a shortcut: It may 
create a poison (unclosed) file on the disk. 

<9 


To receive 
additional 
information from 
advertisers in 
this issue, use 
the handy reader 
service cards in 
the back of 
the magazine. 


FOR THE 

AATARI' 

CENTER NEAREST YOU 
PLEASE CALL OUR 
SALES OFFICE IN 
YOUR AREA 


New England 

Bellavance, Fassler, larrobino, Inc. 

Needham, Maine 
617-449-3910 
Upstate New York 
Seeber Sales Corp. 

Latham, New York 
518-785-4523 

Metro New York, North New Jersey 

The Spieler-Weiss Group, Ltd. 
Spring Valley, New York 
914-352-2502 

South New Jersey, 

East Pennsylvania, Delaware 

R. K. Marketing 
Havertown, Pennsylvania 
215-446-6400 

Maryland, Washington, Virginia 

Alexander & Samet 
Rockville, Maryland 
301-251-9300 

South Nevada, Arizona, 

New Mexico, El Paso 

Mountain Micro Markets 
Scottsdale, Arizona 
602-998-4357 
Washington, Oregon 
Barnsley-Weis Associates 
Yakima, Washington 
509-248-7250 

No. California, No. Nevada 

New-West Companies 
Mountain View, California 
415-940-6033 
Southern California 
Tri West Marketing, Inc. 

Culver City, California 
213-390-8591 


Tennessee, Georgia, Alabama, 
Mississippi, No. & So. Carolina 

John Lee Company, Inc. 
Nashville, Tennessee 
615-321-5012 

Florida 

Intratec Technology Rep.’s Inc. 
Boca Raton, Florida 
305-393-1925 

W. Pennsylvania, W. Virginia, 
Ohio, Kentucky 

Incom Marketing, Inc. 
Columbus, Ohio 
614-451-5146 

'Minnesota, North Wisconsin, 
North Dakota, South Dakota 

Continental Merchandisers, Inc. 
St. Paul, Minnesota 
612-645-6441 

South Wisconsin, North Illinois, 
Michigan, Indiana 

Hawthorn Marketing, Inc. 
Buffalo Grove, Illinois 
312-541-8846 

Missouri, Kansas, S. Illinois, 
Nebraska, Iowa 

Sound Marketing Associates 
St. Louis, Missouri 
314-644-2400 

Texas, Oklahoma, Arkansas, 
Louisiana, Mississippi 
Miller & Associates 
Richardson, Texas 
214-437-5733 
Utah, Idaho, Colorado 
Wyoming, Montana, Alaska 
Schreyer Associates, Inc. 

Salt Lake City, Utah 
801-483-1331 


Hawaii 

SCS Co., Inc. 
Honolulu, Hawaii 
808-845-9937 


AATARI* 

Power Without the Price 
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AMERICA 


E BUILT IT FOR YOU 

THE ATARI 520ST 



“We promised. 

We delivered. 
With pride, 
determination, 
and good old 
ATARI know how. 
Sam Tramiel, 
President, 

A TARI CORP. 


No other computer we know of 
has been awaited with such antici¬ 
pation, has received so much 
national and trade press, and has 
been so unanimously acclaimed — 
as the remarkable 520ST. 

And for good reason. Its develop¬ 
ment represents a bold, new stan¬ 
dard in personal computing power. 
The 520ST simply obsoietes all current personal 
systems — even those costing thousands of dollars 
more. Beneath its full stroke 
94-key keyboard is an operating 
environment so intelligent that 
it puts you in command almost 
at once. It’s that easy. 

Graphic symbols quickly 
identify available functions. 

Menus appear just by aiming 
the mouse. Point to a specific operation, 
click the mouse and instantly you are 
able to develop full color charts, recall 
files from within folders, and so much 
more. 

And when you combine 524,288 
bytes of RAM with ATARI’S custom 
circuits and the horsepower of a 68000 
microprocessor, you own a powerful 
computer that delivers crisp, high 
solution images with incredible soeed. 


With a monochrome monitor 
your 520ST displays 640 x 400 
pixels of extremely high resolu¬ 
tion clarity. Select a color monitor 
and you are able to create beautiful 
graphs and diagrams from a pal¬ 
ette of 512 vivid colors. 

Power to grow. An array of 
expansion ports allow you to easily customize your 
520ST. There are standard serial and parallel interface 
ports for connecting printers and 
telecommunications equipment, 

MIDI connectors to interface with 
music synthesizers and keyboards, 
and 3.5 inch floppy disk, cartridge 
and joystick ports. There is also a 
hard disk port with the lightning 
communications speed of 1.33 
Megabytes per second. ATARI 520ST systems are avail¬ 
able now. When it comes to 
state-of-the-art technology 
...don’t settle for less. And 
when it comes to price 
...don’t pay a penny more. 











A - T • 


A- R 




"We aren't selling home computers. We aren't selling 
business computers. We're selling personal computers. 
People can use them for whatever they want." With those 
words, Jack Tramiel launched the ST series and a new be¬ 
ginning for Atari. Here's a close look at the first computer 
in the ST series and the most powerful Atari ever. 


The old stereotypes about home 
computers are being challenged. 
There's a new generation of per¬ 
sonal computers emerging that 
combines massive memory, high¬ 
speed processing, fast floppy disk 
drives, hard disk interfaces, consid¬ 
erable expansion potential, stun¬ 
ning graphics, and sophisticated 
sound. These computers are power¬ 
ful enough to run state-of-the-art 
business software and versatile 
enough to excel at running enter¬ 
tainment and educational programs. 
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The Atari 520ST was the first 
of this new breed. Announced at 
the Winter Consumer Electronics 
Show last January, it is now becom¬ 
ing widely available. Here are the 
standard features: 

• 512K of Random Access 
Memory (RAM), half a megabyte. 

• Motorola 68000 microproces¬ 
sor. This 16/32-bit chip is clocked 
at 8 megahertz and can directly ad¬ 
dress up to 16 megabytes of memo¬ 
ry without bank-switching. It's the 


same central prc cessing unit found 
in the Apple Macintosh and Amiga 
from Commodore. 

• One of the fastest floppy disk 
drive interfaces in personal com¬ 
puting. Although the interface bus 
is serial, not parallel, it transfers 
data at a megabit per second, faster 
than some hard disks. The basic 
520ST system comes with one ex¬ 
ternal drive that stores 400K (unfor¬ 
matted) on a single side of a 
3V2-inch microfloppy disk. Double¬ 
sided drives which store 800K per 
disk have also been announced. 

• One of the fastest hard disk 
interfaces in personal computing. It 
transfers data at 1.33 megabytes per 
second, more than eight times fast¬ 
er than the floppy interface. Al¬ 
though hard disks aren't yet 
available for the ST, Atari plans to 
introduce a 10- to 15-megabyte 













drive by early 1986, possibly for as 
low as $399. This price is feasible 
because the hard disk controller is 
already built into the computer. 
The hard disk interface can also be 
used for memory expansion or a 
CD-ROM (Compact Disc-Read 
Only Memory). Atari has shown a 
prototype CD-ROM that stores up 
to 550 megabytes of data on a sin¬ 
gle compact disc. (See "Monster 
Memory," August 1985.) 

• Built-in Centronics-standard 
parallel port and RS-232 serial port 
for printers, modems, and other 
peripherals. These ports are com¬ 
patible with IBM cables for printers 
and modems. 

• Built-in Musical Instrument 
Digital Interface (MIDI) for attach¬ 
ing keyboard synthesizers, se¬ 
quencers, drum boxes, and other 
electronic musical devices. Because 
the MIDI ports transfer data at a 
very high speed (31.25 kilobaud), 
they've also been considered for 
such future applications as ex¬ 
tremely inexpensive local area net¬ 
works (LANs). 

• A slot for cartridges contain¬ 
ing up to 128K of Read Only Mem¬ 
ory (ROM). 

• Intelligent video output port 
that recognizes whether a color or 
monochrome monitor is plugged 
into the computer and allows the 
operating system to adjust itself ac¬ 
cordingly. This port also has pins 
for audio input/output. 

• High-resolution monochrome 
monitor. With a screen refresh rate 
of 70 hertz—about 16 percent fast¬ 
er than normal monitors and TVs— 
this monitor is capable of unusually 
sharp displays. An analog RGB 
(red-green-blue) color monitor also 
is available. 

• Screen modes with high reso¬ 
lution (640 X 400 pixels, mono¬ 
chrome), medium resolution (640 
X 200, four onscreen colors), and 
low resolution (320 X 200, 16 on¬ 
screen colors). 

• Palette of 512 possible colors. 
Any of the four colors in medium 
resolution or 16 colors in high reso¬ 
lution can be selected from this 
palette. 

• Three-channel General In¬ 
struments sound chip, the same as 
found in the Texas Instruments TI- 
99/4A, IBM PCjr, and MSX- 
standard computers. Envelope 


registers allow the chip to simulate 
various types of waveforms. 

• A disk-based operating sys¬ 
tem called TOS (Tramiel Operating 
System) which combines Digital 
Research's CP/M-68K and GEM 
(Graphics Environment Manager). 
CP/M-68K is the 68000 version of 
the popular Z80-based operating 
system, CP/M (Control Program/ 
Microcomputers), similar to the 
MS-DOS used on the IBM PC and 
compatibles. CP/M-68K is vastly 
expanded, however, with provi¬ 
sions to support up to 16 disk drives 
with 512 megabytes per drive and 
32 megabytes per file. To make this 
operating system easier to use, it is 
linked on the 520ST with GEM, a 
Macintosh-like user interface with 
icons, windows, and drop-down 
menus. GEM can be manipulated 
from the keyboard or with a mouse 
controller that comes with the 
520ST. The two-button mouse 
plugs into one of the two controller 
ports built into the computer. 



Turtle graphics in Logo: This geo¬ 
metric figure was created in the 
Atari 520STs low-resolution mode 
(320 X 200 pixels, 16 colors). 

• Digital Research Logo and 
Atari BASIC programming lan¬ 
guages on disk. (At this writing, 
BASIC wasn't finished, and the 
520ST was being shipped with 
Logo only. Atari has said that 
BASIC will be added to the package 
when it's done and offered as an 
upgrade to early ST buyers as well.) 

• An 84-key keyboard with cur¬ 
sor keypad, numeric keypad, plus 
ten special function keys. 

The price for the complete sys¬ 
tem (520ST, disk drive, mono¬ 
chrome monitor, mouse, and 
system software) is $799. A 520ST 


system with RGB monitor costs 
$999. 

I f you've never used a Macintosh, 
working with the Atari 520ST for 
the first time will be an unfamiliar 
experience. When you switch on 
most personal computers, you find 
yourself either in BASIC or some 
type of disk operating system 
(DOS). But the 520ST doesn't wake 
up with a READY prompt, com¬ 
mand line, or DOS menu. Instead, 
the first thing you see is the GEM 
desktop. 

Icons along the edges of the 
desktop screen show a trash can 
and file drawers. The drawers rep¬ 
resent floppy disk drives and hard 
disks, depending on your system 
configuration. Menu titles appear 
across the top of the screen. Float¬ 
ing above the desktop is an arrow 
that you can move by rolling the 
mouse or by pressing certain keys. 
It represents an extension of your 
hand on the screen. 

To view a menu, you move the 
pointer to the desired title. Instant¬ 
ly, the menu drops down over the 
screen. (The 520ST's drop-down 
menus are summoned slightly dif¬ 
ferently than the Macintosh's pull¬ 
down menus: You don't have to 
click and hold the mouse button.) 
As you move the pointer up and 
down the menu, it highlights vari¬ 
ous options. Some options may be 
invalid for a particular operation, so 
they appear in dim print and cannot 
be highlighted. To select an option, 
you simply highlight it and click the 
left button on the mouse. 

To call a disk directory, you 
move the pointer atop the appropri¬ 
ate file drawer icon and do what's 
called a double-click —pressing the 
mouse button twice in rapid succes¬ 
sion. The disk drive hums, and a 
window appears on the desktop. 
Various types of icons inside the 
window denote data files, execut¬ 
able program files, and subdirector¬ 
ies on the disk. If you prefer a more 
conventional disk directory, you 
can drop down the View menu and 
select View As Text. The file icons 
change into a list of filenames 
which includes such information as 
file lengths in bytes and the dates 
on which the files were last updat¬ 
ed. Other options on the View 
menu let you sort the directory by 
filename (alphabetically), file type. 
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This low-res picture was created 
with Dr Doodle, a simple drawing 
program written by Digital Research 
and included on an ST demo disk. 



In high resolution (640 X 400 
pixels, monochrome), GEM closely 
resembles the Macintosh desktop. 



Error messages on the 520ST are 
usually more helpful than the cryp¬ 
tic error codes of days past. 


size, or date. 

If you're working with a two- 
drive system, you can call the direc¬ 
tory for drive B by double-clicking 
on its icon. When this window ap¬ 
pears, it overlaps the window for 
drive A. But the drive A window 
isn't erased; by pointing to it and 
clicking the mouse button once, it 
moves atop the drive B window. A 
similar click on the drive B window 
brings it to the fore. You can flip 
back and forth between several 
windows in this manner, like shuf¬ 
fling papers on a real desktop. Op¬ 
tions selected from menus, such as 
View As Text, affect the window 
which is currently on top of the 
pile. 


A ll other functions in the GEM 
desktop work in similar 
ways: You point to a menu 
option or icon, then click the mouse 
button once or twice. 

For instance, to run a program, 
you point to its icon or filename in 
the disk directory window and 
double-click. The desktop disap¬ 
pears and the program runs. When 
you exit the program, the desktop 
reappears. 

Some operations, such as de¬ 
leting a file, require a mouse ma¬ 
neuver known as dragging. First 
you select the icon—in this case, 
the file you want to delete—by 
pointing to it with the mouse and 
then clicking the mouse button. 
While still holding down the but¬ 
ton, you can roll the mouse to drag 
an outline of the file icon along with 
the pointer. To delete the file, you 
would drag it to the trash can icon 
and release the mouse button. A 
window appears and asks "Are you 
sure?", warning that the file will be 
erased if you click on a marker la¬ 
beled "OK." If you don't want to 
delete the file, you can click on a 
marker labeled "Cancel." The first 
choice irretrievably erases the se¬ 
lected file off the disk; the second 
choice restores everything to nor¬ 
mal. (Unlike the Macintosh, you 
can't retrieve files from the trash 
can. As the 520ST manual points 
out, the 520ST trash can is more 
like an incinerator.) 

This dragging technique is 
used tor other operations as well. 
You can copy a file from one disk to 
another by dragging the file icon 
from the source disk's directory 
window to the destination disk's 
window; you can copy the contents 
of an entire disk by dragging its file 
cabinet icon atop another disk's 
icon; and you can organize files into 
subdirectories by dragging their 
icons into a folder icon. 

You can also manipulate win¬ 
dows as easily as icons. The "ac¬ 
tive" window—that is, the one on 
top of the pile if several are dis¬ 
played—has various control bars 
and squares along its edges. Point¬ 
ing to the square in the upper-right 
corner and clicking the mouse but¬ 
ton expands the active window to 
full-screen size. Clicking this corner 
again restores it as a window. Drag¬ 
ging the lower-right corner lets you 


adjust a window's size, making it 
larger or smaller. Dragging the top 
bar lets you move a window any¬ 
where on the screen. Clicking on 
the small arrows displayed along 
the bottom and right bars will scroll 
the material displayed in the win¬ 
dow, assuming some of it is hidden 
due to the window's size. And 
clicking on the upper-left corner re¬ 
moves the active window from the 
screen ("closes" the window). 

O ne unusual feature of the 
520ST is its intelligent 
monitor interface. When 
you boot up, the operating system 
checks whether a monochrome or 
color monitor is attached to the 
computer and adjusts itself for one 
of three possible screen resolutions. 

With the monochrome moni¬ 
tor, the operating system automati¬ 
cally configures the GEM desktop 
for high resolution—640 X 400 
pixels, black and white. The display 
is extremely sharp and stable be¬ 
cause of the monitor's 70 hertz re¬ 
fresh rate, which means it redraws 
the screen image 70 times per sec¬ 
ond rather than 60 times as on stan¬ 
dard monitors and TVs. (This is 
possible because the monitor uses 
its own 70 hertz oscillator instead of 
synchronizing with the 60 hertz 
power line.) Furthermore, the dis¬ 
play is paper-white, not blue-white, 
easier on the eyes. When the mono¬ 
chrome monitor is hooked up, the 
operating system won't let you en¬ 
ter the medium- or low-resolution 
modes, which have color. 

If the 520ST is booted up when 
plugged into its RGB monitor, it 
defaults to medium resolution— 
640 X 200 with four simultaneous 
colors. Because this screen has the 
same horizontal resolution as the 
monochrome mode but only half 
the vertical resolution, the aspect 
ratio is slightly distorted. Icons ap¬ 
pear tall and skinny, and characters 
are narrower. 

The low-resolution mode— 
320 X 200 with 16 simultaneous 
colors—also requires the RGB 
monitor. (The RF modulator includ¬ 
ed in preproduction 520STs has 
been eliminated from production 
models, so it can't be attached to 
ordinary TVs. There's also no direct 
output for standard composite 
monitors, although one could prob¬ 
ably be rigged from the RGB pins.) 
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Superstars aren’t just the best in their 
fields. They’re the best, year after year. In 
the wide world of sports simulations, SSI’s 
COMPUTER QUARTERBACK™ and 
COMPUTER BASEBALL™ stand out as 
true superstars. To date, tens of thousands 
of enthusiastic fans and dozens of maga¬ 
zine reviewers alike have cheered their 
superb display of realism and excitement. 
By consistently outplaying the competi¬ 
tion, our games stand head and shoulders 
above the crowd. 

If you’re scouting for the best football 
and baseball strategy games around, take 


a good look at ours — the ones with the 
proven performance. You’ll know these are 
the superstars you want to play on your 
computer. Sign them up at your local 
computer/software or game store today! 

If there are no convenient stores near 
you, VISA & M/C holders can order these 
$39.95 games direct by calling 800-227- 
1617, x335 (toll free). In California, 800- 
772-3545, x335. 

Please specify computer format and 
add $2.00 for shipping and handling. 

To order by mail, send your check to: 


Strategic Simulations, Inc., 883 Stierlin 
Road, A-200, Mountain View, CA 94043. 
(California residents, add 7% sales tax.) 
All our games carry a “14-day satisfaction 
or your money back” guarantee. 

WRITE FOR A FREE COLOR CATALOG OF 
ALL OUR GAMES TODAY. 

Computer Quarterback is on diskette for 
48K APPLE II® series, ATARI® home 
computers, and the COMMODORE 64™. 
Computer Rasebali is on diskette for 
APPLE, ATARI, C-64 and IBM PC® and 
PCjr^ 


AFPLE, ATARI, COMMODORE 64 and IBM PC/PCjr 
are trademarks of Apple Computer, Inc, Atari, Inc., 
Commodore Electronics, Ltd., and International 
Business Machines Corp, respectively. 



STRATEGIC SIMULATIONS. INC. 








In low res, the GEM desktop has a 
40-column screen. The Control 
Panel is a pop-up menu that lets 
you adjust various system functions. 



In medium resolution (640 X 200 
pixels, four colors), the GEM desktop 
has an 80-column screen. Note the 
two disk directory windows. 



The 520ST is capable of displaying 
numerous type styles, as seen on 
this hi-res Logo screen. 


To enter the low-res mode, you 
boot up in medium-res, then drop 
down the Options menu and select 
Set Preferences. A small window 
appears with markers for low-res, 
medium-res, and hi-res (the hi-res 
marker is dimmed to indicate it's 
not available with this configura¬ 
tion). To change modes, you click 
the mouse button while pointing to 
the appropriate marker. 

If you want your 520ST to 
“wake up" in low-res instead of 
medium-res, you can drop down 
the Options menu and select Save 
Desktop. This selection saves all 
adjustments you've made to GEM 
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onto the operating system boot 
disk. Other preferences can be 
saved this way, too. By dropping 
down various menus, you can spec¬ 
ify whether warning windows 
should appear when copying or de¬ 
leting files; turn the keyboard click 
and error beeps on or off; adjust the 
keyboard's auto-repeat delay and 
repeat rate; set the mouse button's 
response speed for double-clicking; 
choose the desktop's foreground 
and background screen colors from 
the 512 available hues; set the real¬ 
time clock's time and date, which is 
automatically stamped on disk di¬ 
rectories whenever you save a file; 
and configure the RS-232 and par¬ 
allel ports for certain peripherals. 

The 520ST doesn't have sprites 
or player/missile graphics, but ani¬ 
mation is possible in any of its 
screen modes by a technique called 
bit-block transfer. Like sprite graph¬ 
ics, it allows you to move objects 
around the screen without erasing 
the background. The mouse pointer 
and the bumblebee icon that ap¬ 
pears when the disk drive is busy 
are examples of bit-block anima¬ 
tion. Unfortunately, these capabili¬ 
ties are not supported in Logo, the 
only language shipped with the 
520ST at launch. The Logo is actu¬ 
ally a translation of Digital Re¬ 
search's Logo for the IBM PC, and it 
has no commands for animation or 
sound. Reportedly, the BASIC be¬ 
ing prepared for the 520ST is a 
translation of Digital Research's 
BASIC for the PC. 

W hen the 520ST made its 
first appearance at the 
Winter CES, it was hard 
to believe that anyone could design 
a system like the 520ST and throw 
together a prototype in only about 
six months—the time that had 
elapsed since ex-Commodore Pres¬ 
ident Jack Tramiel had acquired 
Atari from its parent company, 
Warner Communications. 

Forced to trim down from sev¬ 
eral thousand employees to several 
hundred. Atari accelerated devel¬ 
opment on the 520ST by taking 
advantage of some ready-made 
parts. The 520ST came along just in 
time for Digital Research's CP/M- 
68K and GEM. This is important in 
understanding the underlying 
structure of the 520ST, which has 
been nicknamed the “Jackintosh." 


Although the Atari's desktop 
screens can easily be mistaken for 
the Macintosh's, the 520ST is actu¬ 
ally quite different from the Mac. 
True, GEM has all the icons, win¬ 
dows, menus, and other Macintosh 
screen graphics. But GEM is really 
just a shell—a layer between the 
user and the real operating system, 
CP/M-68K. In fact, it's possible to 
leave GEM and enter this lower 
level. All the fancy graphics can be 
made to disappear and you see a 
screen prompt, A>. This prompt is 
familiar to users of CP/M and MS- 
DOS/PC-DOS (a descendant of 
CP/M). You can enter commands 
such as DIR to call a disk directory 
or TYPE to display a file. Like 
CP/M and PC-DOS, CP/M-68K 
allows programmers to perform 
various system functions by calling 
routines in the Basic Input/Output 
System, or BIOS. Digital Research 
even says that CP/M file structures 
are upwardly compatible with 
CP/M-68K. 

GEM, too, is a module that has 
something in common with other 
systems. Digital Research sells a 
version of GEM for the IBM PC and 
compatibles, and publishes guide¬ 
lines for writing application pro¬ 
grams to work with GEM. 

All this doesn't mean that the 
520ST can run CP/M or PC-DOS 
programs, of course—the machine 
languages are completely incom¬ 
patible. But it does mean that pro¬ 
grams written in compiled 
languages such as C can be adapted 
for these various systems without 
complete rewriting. If software 
companies take advantage of this, it 
could significantly boost the 
amount of software available for 
the 520ST. 

Another consequence of the 
520ST's shell-like operating system 
structure is that the machine has 
not been designed around its user 
interface. The computer is function¬ 
al without the mouse, and the key¬ 
board includes such traditional 
features as cursor keys. 

Combining ease of use with 
real power, speed, and the potential 
for future expansion, the Atari 
520ST is an important addition to 
personal computing. It lends itself 
to users who prefer to buy their 
software off the shelf as well as to 
programmers—a versatile repre¬ 
sentative of the new generation. 

























COMPUTE! Books Announces 


COMPVJTEI’s 



with more than 70 never- 
before-published articles 
and programs for the 
Commodore VIC-20. 

included in this giant collection are over 30 
games, plus utilities, applications, tutorials, 
and much more, most of which wiii run on on 
unexpanded VIC. COMPUTED VIC-20 Collec¬ 
tion contains something for every VIC-20 user. 
Even if you use just a fraction of the programs 
inside, this book will prove extremely valuable. 
Typing in the programs is made easy with "The 
Automatic Proofreader," an error-checking 
program that tolls you sight away if you’ve 
made an error. 

Edited, $12.95, ISBN 0-87455-007-6 
There’s also a disk available which includes all 
the exciting, challenging programs tom the 
book ready to run on your VIC-20. COMPUTETs 
VIC-20 Collection Disk saves you typing time 
and prevents many typing errors, it's fast, 
convenient, and Inexpensive. You can order 
the Disk from COMPUTES Books for only $12.95. 





COMPUTE'S 



IDE-2 




COLLECTION 



A giant assortment of over 70 
never-before-published articles and 
programs for the VIC-20. Action games, 
thinking games, utilities, graphics, 
sound, and tutorials. 





Please send me-copies of COMPUTEfs VIC-20 Collection, (007) at 

$ 12.95 each. '(Add $2.00 per book in US. and surface mai; $5.00 per book akmas for « 
shipping charges.) * 

Please send me_copies of COMPUTE!'s VIC-20 Collection Disk at , 

$ 12.95 each. '(Add $2.00 per disk shipping charges.) 5 

NC residents add 4.5% tax 
'Shipping charges 

All orders must be prepaid. „ . , 

Total payment enclosed $ 

□ Payment enclosed (check or money order) 

a Charge □ Visa □ MasterCard □ American Express 

Account No. _ Exp. Date___ / 


Signature _ 


look for COMPUTE? 
books at your local 
book of computer re¬ 
tailer, or mail the order 
form to COMPOTE? 
Books. P.O. Box 5058, 
Greensboro, NC 27403. 
For fastest service, cal! 
toil free 800-334-0868. 
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Amiga 

Goes .. 
IBM-Compatible 

Tom R. Halfhill, Editor 


C ommodore sprang a few sur¬ 
prises when it officially an¬ 
nounced the Amiga in late 
July. For one thing, there's an option 
to make the Amiga compatible with 
most programs written for the IBM 
PC—an option that requires no addi¬ 
tional hardware. 


Commodore has revealed the miss¬ 
ing link. 

Its new Amiga personal com¬ 
puter already is reaping praise from 
industry analysts and journalists as 
the most innovative machine intro¬ 
duced in years (see "The Amiga: An 
In-Depth Review," COMPUTE!, Sep¬ 
tember 1985). However, as with all 
new computers that break with ex¬ 
isting technology, it could take a 
year or more before the Amiga ac¬ 
cumulates an extensive software 
library. 

But Commodore appears to 
have solved that problem with a 
single stroke. On July 23, when it 
formally unveiled the Amiga to a 
crowd of several hundred people at 
a gala media event in New York's 
Lincoln Center, Commodore an¬ 
nounced that an option will make 
the Amiga software-compatible 
with the popular IBM PC and its 
huge base of commercial programs. 
Although this had been rumored 
for months, the method of achiev¬ 
ing this compatibility was the real 
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surprise—the Amiga will emulate 
the IBM PC entirely in software. 

In other words, it won't be nec¬ 
essary to add an expansion board 
containing an 8088 and support 
chips to emulate the IBM PC. In¬ 
stead, Amiga users will simply load 
an emulation program that replaces 
the Amiga's proprietary operating 
system with PC-DOS to make the 
Amiga act like an IBM. This was 
demonstrated in New York when 
an engineer loaded the PC emula¬ 
tor from a 3Vi-inch disk, then boot¬ 
ed PC-DOS from a standard 
5V4-inch IBM disk on an external 
drive (the 5V4-inch drive is option¬ 
al). The Amiga's graphics-oriented 
operating system disappeared, and 
the screen displayed the usual PC- 
DOS startup message: 

The IBM Personal Computer DOS 
Version 2.10 (C)Copyright IBM Corp 1981, 
1982, 1983 
A> 

After inserting another 5V4- 
inch disk and typing "lotus" at the 
DOS prompt, the engineer demon¬ 
strated a Lotus 1-2-3 spreadsheet. 
The Amiga screen even looked like 
an IBM monochrome screen. 


T he technical feat of emulating 
the IBM PC entirely in software 
is best appreciated by ad¬ 
vanced programmers and engi¬ 
neers, but can be likened to playing 
a record on a tape deck. It seems 


almost impossible, and even some 
people who witnessed the demon¬ 
stration have doubts that the Amiga 
can emulate the PC at a speed com¬ 
parable to a real PC. 

Nevertheless, Commodore's 
engineers maintain it has been 
done, and that the PC emulator will 
be available within a month after 
the Amiga's launch in September. 
No price for the emulator was an¬ 
nounced, but Commodore says it 
chose the software method to keep 
costs down. The only hardware in¬ 
volved is the 5 Vi -inch drive, and 
one engineer told COMPUTE! that 
even that accessory might be un¬ 
necessary since some PC programs 
can be loaded from 3 Vi -inch disks 
sold for the Data General One, a 
PC-compatible portable computer. 

According to Commodore, the 
emulator isn't memory-hungry, 
either. It consumes about 40K of 
RAM, not counting video memory. 
Still, to run large PC programs such 
as Lotus 1-2-3, Commodore will 
probably advise users to expand the 
Amiga's standard 256K RAM to 
512K (a $200 option). 

Another surprise revealed July 
23 was the Amiga's memory con¬ 
figuration. Commodore originally 
planned to locate the Amiga's large 
operating system, called Intuition, 
in 192K of ROM. Then, to make it 
easier to fix bugs and release the 
computer on time, Commodore 
said the first Amigas would load 
Intuition from disk, consuming 
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Sure Summer Games was great, but 
why stop there? Let Summer Games II take 
you even farther with eight new events 
including cycling, fencing, kayaking, triple 
jump, rowing, high jump, javelin and even 
equestrian. They can all be played by 
up to eight players and some, like cycling, 
rowing and fencing challenge you with 
realistic head-to-head competition. 

First, you decide which of the 18 different 
countries you’re going to represent. Then, 
in true Olympic fashion, you will need the 
proper strategy and mental toughness, 
not just speed and agility to excel in each 


event. It’s so realistic, there’s even an 
opening and closing ceremony along with 
medal presentations after each event. 

It’s not too early to get ready for 1988. 
With the right diet, proper training and 
hours of practice you just might make it. In 
the meantime, put on your sweatsuit, grab 
that joystick and let Summer Games II give 
you eight new ways to Go For The Gold! 




Strategy Games for the Action-Game Player 








about half of the 25 6K user RAM. 
Now Commodore has a better solu¬ 
tion: The standard Amiga will have 
512K of RAM, but half will be dedi¬ 
cated to storing Intuition. Called 
the Writeable Control Store, this ex¬ 
tra bank of 256K RAM is write- 
protected immediately after the 
operating system is loaded. Com¬ 
modore says even a system reset 
won't interfere with it. In effect, the 
Writeable Control Store acts like 

256K of ROM, except that Intuition 
must be loaded from disk again 
after the computer is powered off. 
As a result, the entire 256K of user 
RAM is available for programs. 

The Writeable Control Store 
won't be counted as system RAM; 
the standard $1,295 Amiga will still 
be advertised as a 256K computer, 
even though it really contains 
512K. Later, when Commodore is 
certain that Intuition is fully opti- 

mized (critical parts are being re¬ 
written from compiled C into 
machine language), the Writeable 
Control Store will be eliminated 
and replaced with ROM. This will 
allow nearly instant startups, be¬ 
cause Intuition won't have to be 
loaded from disk. Commodore 
hasn't yet said whether early 
Amiga owners will be able to up¬ 
grade to a ROM-based operating 
system later. © 

Amiga 

Software 

Kathy Yakai. Feature Write- 

Here is a list of software announced so far for 
the Amiga. Prices are included where 
available: 

Entertainment 

Archon: Unique chess game, using wizards and 
dragons instead of traditional pieces. Unusual 
game play is enhanced by 3-D effects. ( Electronic 
Arts, 2755 Campus Drive, San Mateo, CA 94403.) 
Deja Vu: A Nightmare Come True: A graphics/ 
text adventure in the genre of a 1940s movie 
mystery. The Amiga's windowing ability lets the 
player see several parts of the story simultaneous¬ 
ly. ($54.95; Mindscape, Inc., 3444 Dundee Road, 
Northbrook, IL 60062.) 

Dr. J & Larry Bird Go One-on-One: Realistic 
graphics and sound highlight simulated basketball 
action between the two athletes. ( Electronic Arts.) 
Marble Madness: Translation of the arcade game. 

( Electronic Arts.) 

Radar Raiders: A graphics- and sound-rich flight 
simulator that lets the player control a high- 
performance jet aircraft, both in test pilot and 
combat game modes. (Developed by Sublogic Com¬ 
munications Corporation and marketed by Amiga.) 
Return to Atlantis: 3-D undersea adventure. ( Elec- 

Sargon III: Chess game with nine levels of play 
and a library of 68,000 moves. ( Hayden Software 
Company, 600 Suffolk Street, Lowell, MA 01854.) 

Sky fox: Light combat simulation. ( Electronic Arts.) 
Zork I: The Underground Empire; Zork II: The 
Wizard of Frobozz; Zork III: The Dungeon Mas¬ 
ters; Enchanter; Sorcerer; Suspect; The Witness; 
Cutthroats; Deadline; Seastalker; Infidel; Planet- 
fall; Suspended; Starcross; The Hitchhiker's 
Guide to the Galaxy. The well-known series of all¬ 
text interactive fiction adventures. ( $39.95-549.95. 
lnfocom, Inc., 125 Cambridge Park Drive, Cambridge, 
MA 02140.) 

Languages And Utilities 

ABasiC: A powerful BASIC interpreter designed to 
take full advantage of the Amiga's capabilities. 
(Developed by Metacomco, the British company that 
wrote AmigaDOS. Marketed by Amiga.) 

Amiga Assembler/Linker: A Motorola-standard 
68000 macroassembler with linker. (Developed by 
Metacomco and marketed by Amiga.) 

Amiga Tutor: A step-by-step look at the Amiga's 
graphics capabilities and other major features. 
(Mindscape.) 

Cambridge LISP 68000: Programming language 

designed for work in artificial intelligence. (Devel¬ 
oped by Metacomco and marketed by Amiga.) 

Lattice C Compiler: Allows software developed 
for other PC operating systems to run on the 
Amiga. (Lattice, Inc., P.O. Box 3072, Glen Ellyn, IL 
60138.) 

Lattice C Cross Compiler/IBM MS-DOS: Allows 
software developed for Amiga to run on IBM per¬ 
sonal computers. ( Lattice, Inc.) 

Lattice C Cross Compiler/Unix: Allows software 
designed for the Amiga to run on Unix-type ma¬ 
chines. ( Lattice, Inc.) 

Lattice C Cross Compiler/VAX: Allows software 
developed for the Amiga to run on VAX minicom¬ 
puters. ( Lattice, Inc.) 

LMK: Software development tool similar to Unix- 
Make. ( Lattice, Inc.) 

LSE: Screen editor; allows user to enter commands 
in several languages. (Lattice, Inc.) 

MCC Pascal 68000: Single-pass compiler for soft¬ 
ware systems and utilities development. (Devel¬ 
oped by Metacomco and marketed by Amiga.) 

TMN: Software development tool for text manage¬ 
ment utilities. (Lattice, Inc.) 

TLC-IOGO for the Amiga: A high-level program¬ 
ming language incorporating a LISP dialect. (De¬ 
veloped by The LISP Company and marketed by 

Turbo PASCAL: High-speed compiler. (Borland 
International, 4585 Scotts Valley Drive, Scoffs Valley, 
CA 95066.) 

Business/Productivity 

CalCraft: A spreadsheet for the Amiga, featuring 
pull-down menus and flexible formatting options. 
(Developed by Synapse Software and marketed by 
Amiga.) 

Deluxe Video Construction Set: Creates animated 
video with sound effects; accepts data from other 
Electronic Arts software. (Electronic Arts.) 

Enable/Calc: Spreadsheet program with over 50 
math functions and up to eight simultaneously 
active spreadsheet files in RAM. (The Software 
Group/Amiga, Northway Ten Executive Park, Ballston 
Lake, NY 12019.) 

Enable/File: Database manager capable of han¬ 
dling up to 256 fields per record. (The Software 
Group/Amiga.) 

Enable/The Office Manager: Integrated business 
package, including word processor, database man¬ 
ager, telecommunications, and graphics modules. 
(The Software Group/Amiga.) 

Enable/Write: Word processor. (The Software 
Group/Amiga.) 

Graphicraft: Graphics/paint package using 32 
medium-resolution colors. (Developed by Island 
Graphics Corporation and marketed by Amiga.) 
Harmony: Creates musical accompaniment, either 
through Amiga's internal sound or MIDI (Musical 
Instrument Digital Interface) instruments. (Devel¬ 
oped by Cherry Lane Technologies and marketed by 
Amiga.) 

Moviecraft: Animation package; uses "tweening" 
technique to animate without reading from disk. 
(Developed by Island Graphics and marketed by 
Amiga.) 

Musicraft: Turns the Amiga into a four-voice syn¬ 
thesizer and sequencer; teaches music composi¬ 
tion. (Developed by Everywhere, Inc. and marketed by 
Amiga.) 

Presentationcraft: Business graphics package for 
creating 3-D objects, exploded and expanded bar 
and pie graphs. (Developed by Island Graphics Cor¬ 
poration and marketed by Amiga.) 

RAGS to RICHES Ledger: Double-entry general 
ledger software for small businesses. (Developed by 
Chang Laboratories and marketed by Amiga.) 

RAGS to RICHES Payables: Accounts payable 
software for small businesses. (Developed by Chang 
Laboratories and marketed by Amiga.) 

RAGS to RICHES Receivables: Accounts receiv¬ 
able software for small businesses. (Developed by 
Chang Laboratories and marketed by Amiga.) 

RAGS to RICHES Sales: A sales register program 
for point-of-sale income accounting; makes the 
Amiga function as a cash register. (Developed by 
Chang Laboratories and marketed by Amiga.) 
Scorewriter: Enables user to score and print music. 
(Developed by Cherry Lane Technologies and market¬ 
ed by Amiga.) 

The Print Shop: Specialized graphics software, 
allowing user to design and, print personalized 
greeting cards, invitations, letterheads, stationery, 
signs, and banners. (Brederbund Software, Inc., 17 

Paul Drive, San Rafael, G4 94903.) 

Telecraft: Telecommunications software for 
Amiga. (Developed by Software 66.) 

Textcraft: A word-processing program incorporat¬ 
ing online tutorials and screen help for ease of use. 
(Developed by Arktronics and marketed by Amiga.) 
Education 

The Halley Project: A realtime simulation of the 
solar system. Teaches about concepts like gravity, 
orbital motion, and navigation by the stars as 
players "travel" around the universe. ($49.95; 
Mindscape.) 

Keyboard Cadet: Teaches touch typing. ($39.95; 
Mindscape.) 

Seven Cities of Gold: An adventure game that 
helps teach geography and cartography; players 
are sixteenth-century conquistadors exploring the 
new world. (Electronic Arts.) 

Peripherals 

Penmouse Input Device: A cordless light pen with 
built-in power supply that functions as both a 
mouse and graphics tablet. (Kurta Corporation, 4610 

S. 35th Street, Phoenix, AZ 85040.) 

T-Card: Multifunction expansion card with up to 
one megabyte of memory; includes serial port, 
parallel printer port, and hard di->k interface. 
(Tecmar, 6225 Cochran Road, Solon, OH 44139.) 
T-Disk: 20-megabyte 3V2-inch hard disk drive. 
(Tecmar.) 

T-Tape: 20-megabyte tape backup for hard disk; 1 J 
can be linked to Amiga through floppy i aterface 1 
port. (Tecmar.) 

T-Modem: Hayes-compatible modem, switchable 1 
300, 1200, and 2400 bits per second. (Tecmar.) H 
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INTRODUCING THE FAST LOAD 
CARTRIDGE FROM EPYX. 


You’re tired of waiting fore_,_ 

programs to load. But it’s no use glaring at your < 

drive. Calling it names won’t help, either. It was_ 

slow - a lumbering hippo. You need the FAST LOAD 
CARTRIDGE from EPYX. FAST LOAD transforms 
your Commodore 64 disk drive from a lumbering hippc 
into a leaping gazelle. With FAST LOAD, programs 
that once took minutes to load are booted up in a matter 
of seconds. 

FAST LOAD can load, save and copy your disks five 
times faster than normal. It plugs into the cartridge port 


of your Commodore 64 and goes to work automatically, 
loading your disks with ease. And that’s only the 
beginning. You can copy a single file, copy the whole 
disk, send disk commands, and even list directories 
without erasing programs stored in memory. 

And unlike other products, the FAST LOAD 
CARTRIDGE works with most programs, even copy 
protected ones, including the most popular computer 

The FAST LOAD CARTRIDGE from Epyx. Easy 
to insert, easy to use and five times faster. So why 
waste time waiting for your disks to load? 

Speed them up with FAST LOAD! 



epyx 





The 



Games 


Selby Bateman, 
Features Editor 
Kathy Yakal, 
Feature Writer 


A game with no instructions. A pro¬ 
gram that seems to think for itself. 
Aircraft simulations edging closer to 
the real thing. And an "alternate real¬ 
ity" that's expandable. All this—plus 
the Goonies—are among the new 
computer game releases you'll be see¬ 
ing this fall and during the holiday 
season. 


J im Levy stepped back from the 
computer screen, a look of em¬ 
barrassment crossing his face. 
As the president of Activision, Levy 
was supposed to be showing a 
roomful of reporters his company's 
newest computer game. But some¬ 
thing had apparently gone wrong, 
and now he apologized and ex¬ 
plained that he was trying to get 
online with a computer at company 
headquarters to demonstrate the 
program. 

"Logon please..." appeared on 
the screen. After a few unsuccessful 
tries, suddenly Levy's computer 
was online—not with Activision, 
but with some unknown computer 
system. But whose? 

"That, ladies and gentlemen, is 
the game," said Levy, flashing a sly 
smile at the crowd. 

It's called Hacker, and it's a 
game with no instructions, no rules, 
no clues—just your simulated on¬ 
line connection with a mysterious 
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computer system. Whose system 
have you stumbled into? What's 
going on? What does it take to win? 
What pitfalls make you lose? As the 
computer hacker, you must discov¬ 
er all these answers on your own as 
you play this intriguing adventure 
game, which will be available ini¬ 
tially for the Commodore 64 and 
128 (Apple and Atari soon after; 
price to be announced). 

In addition to the engaging ap¬ 
proach Activision has taken with 
Hacker, a number of companies are 
showing that there are plenty of 
fresh ideas for computer games. 
And these games reveal that experi¬ 
enced programmers are getting far 
more from today's computers than 
ever before. Several of the newest 
entries are sequels which equal or 
surpass the original hits. Here are 
some highlights: 



A view through the periscope in Silent 
Service. 

Aerojet, Gunship, and Silent 
Service (MicroProse Software)— 
Fans of MicroProse Software's ear¬ 
lier hits. Solo Flight and F-15 Strike 
Eagle, can look forward to more 
excitement from this trio of new 
simulations. Aerojet is an advanced 
flight simulator which starts where 
the earlier Solo Flight left off, allow¬ 
ing you to pilot a BD5-J jet. Gunship 
is a simulation of the AH-64 
Apache attack helicopter, complete 
with electronic multiple weapons 
systems and realistic helicopter ma¬ 
neuverability. Silent Service is a 
World War II submarine combat 
simulation which lets you slowly 
increase the level of complexity as 
your skills develop. The emphasis 
in all three packages is on realistic 
simulations coupled with intriguing 
game scenarios. ( Aerojet —Apple II, 
Atari, Commodore, IBM; Gun¬ 
ship —Apple II, Commodore, IBM; 
Silent Service —Apple II, Commo¬ 
dore; $34.95 each.) 


Alternate Reality (Datasoft, 
Inc.)—This is the first game in a 
projected series of eight fantasy 
role-playing programs being re¬ 
leased by Datasoft. Called The City, 
the original episode of Alternate Re¬ 
ality finds your character abducted 
by aliens to another time and place. 
As you move around the strange 
city, you learn basic survival skills. 
But this is an adventure game with 
a difference. Traits like patience, 
compassion, and honesty are val¬ 
ued every bit as much as the usual 
strength and proficiency with 
weapons. Day turns to night as you 
learn how to earn money, obtain 
food, avoid dangers, and explore 
the city. Later programs will tie in 
with this first game, letting you 
gain access to parts of the city 
which are not open to you in the 
original program. Following The 
City, Datasoft plans to produce The 
Dungeon, The Arena, The Palace, The 
Wilderness, Revelation, and Destiny. 
(Atari and Commodore versions, 
$39.95; Apple II family, $49.95.) 

Beach-Head II (Access Software)— 
Two earlier fast-action games from 
Access, Beach-Head and Raid Over 
Moscow, have been among the most 
popular computer programs on the 
market. Beach-Head II may well 
join them. The theme is unabash¬ 
edly arcade-style battle, with sol¬ 
diers charging a machine gun 
bunker, rescuing prisoners, flying a 
helicopter through antiaircraft fire, 
and throwing knives in a one-on- 
one finale. Superb color graphics 
and eerily authentic speech synthe¬ 
sis add realism to the game's con¬ 
stant action. There are two options 
of game play: two players or one 
player versus the computer. (Com¬ 
modore 64/128, Atari, Apple II, 
IBM PC/PCjr, $39.95.) 

APB A Major League Players Base¬ 
ball (Random House)—It's your 
strategic skills, not athletic abilities, 
which count in APBA Major League 
Players Baseball. Adapted from the 
popular board game invented 30 
years ago, it's a simulation that lets 
you make the decisions of a major 
league manager, putting a baseball 
team together and then pitting it 
against other teams. The 1985 Mas¬ 
ter Edition contains actual records 
and ratings for 676 players from the 
1984 professional baseball season. 
Updated records will be available 


















Get the jump on the weather¬ 
man by accurately forecasting 
the local weather yourself! 



A scientifically proven way to 
develop an awesome memory. 



You are trapped in a five- 
story, 125-room structure 
made entirely of ice. Find the 
exit before you freeze! 



Take control of your personal 
finances in less than one hour 
a month. 




A time-saving organizer for 
coupons, receipts and more. 
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School-age and pre-school 
children are rewarded for right 
answers, corrected on their 



A real brainflexer. Deflect 
random balls into targets on 
a constantly changing playfield. 



A fun way to dramatically 
increase typing speed and 
accuracy. 


Get up to 30 new programs and games 
for less than 15 cents each— 
every month in COMPUTE! 


Every month, COMPUTE! readers enjoy up to 
30 brand-new, ready-to-run computer pro¬ 
grams, even arcade-quality games. 

And when you subscribe to COMPUTE!, 
you’ll get them all for less than 15 cents each! 

You’ll find programs to help you conserve 
time, energy and money. Programs like Cash 
Flow Manager, Retirement Planner, Coupon 
Filer, Dynamic Bookkeeping. 

You’ll enjoy games like Air Defense, 
Boggier, Slalom, and High Speed Mazer. 

Your children will find learning fast and 
fun with First Math, Guess That Animal, and 
Mystery Spell. 

Looking for a challenge? You can write 
your own games. Customize BASIC programs. 
Even make beautiful computer music and 
pictures. 

It’s all in COMPUTE!. All ready to type 
in and run on your Atari, Apple, Commodore, 
PET/CBM, TI-99/4A, Radio Shack Color 
Computer, IBM PC or IBM PCjr. 


What’s more, you get information-packed 
articles, product reviews, ideas and advice that 
add power and excitement to all your home 
computing. 

And when it’s time to shop for peripherals 
or hardware, check COMPUTE! first. Our 
product evaluations can save you money and 
costly mistakes. We’ll even help you decide 
what to buy: Dot-matrix or daisy-wheel printer? 
Tape storage or disk drive? What about 
modems? Memory expansion kits? What’s new 
in joysticks, paddles and track balls? 

Order now! Mail the postpaid card attached 
to this ad and start receiving every issue of 
COMPUTE!. 



COMPUTE! P.O. Box 10954, Des Moines, IA 50340 
























































every year. You deal with every¬ 
thing a real manager would— 
should a batter bunt, should your 
pitcher throw an intentional walk, 
does the infield move in for the next 
batter? You even face injuries, ejec¬ 
tions, and rainouts. Create your 
own leagues, divisions, teams, and 
farm clubs. Statistics for up to 100 
teams can be stored on a disk. (IBM 
PC/PCjr/XT/AT with color/ 
graphics or monochrome adapter, 
$89.95.) 



King Graham meets King Neptune in 
King's Quest II: Romancing the 
Throne. 


King's Quest II: Romancing the 
Throne (Sierra)—The three- 
dimensional, double high- 
resolution graphics in the original 
King's Quest are back in this second 
all-graphics adventure featuring Sir 
Graham (now King Graham). King 
Graham's quest is a colorful, 
smoothly scrolling adventure 
which can be played by youngsters 
as well as adults. Sierra has again 
paid attention to all the details, 
making this a worthy successor to 
the original. (IBM PC and PC com¬ 
patibles, $49.95.) 

The Fourth Protocol (Bantam Elec¬ 
tronic Publishing)—Frederick For¬ 
syth's bestselling novel has been 
turned into a graphics and text ad¬ 
venture which is being released si¬ 
multaneously with the paperback 
version of the book. You play the 
part of a British intelligence agent 
racing to uncover a plot to smuggle 
and detonate a nuclear device in 
England. The game employs easy- 
to-use Macintosh-style icons and 
windows to help you get around. 
And there are plenty of plot twists, 
even for those who may have read 
the book. (Commodore 64, $34.95; 
Apple version soon.) 

The Goonies (Datasoft, Inc.)—A 
colorful series of eight mazes, filled 
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with a collection of Rube Goldberg- 
style devices to trip you up, com¬ 
prises this action-strategy game 
based on Steven Spielberg's movie. 
Coordinating your multiple charac¬ 
ters and learning the intricacies of 
the mazes make this a demanding 
and absorbing game. You won't 
find the treasure easily, but you can 
have fun trying. (Apple II family, 
$39.95; Atari and Commodore, 
$29.95.) 

Jet (SubLogic)—The company that 
brought out the very popular Flight 
Simulator II has gone one better 
with its newest release. Jet, for IBM 
computers. This newest game is a 
very realistic simulation of two su¬ 
personic jet fighters, a land-based 
F-16 Fighting Falcon and a carrier- 
based F-18 Hornet. There is a free- 
flight mode, or you can try your 
hand at a variety of land or sea 
attacks or dogfight options to test 
your skill. (IBM PC or PC-compatible 
with minimum 128K memory, 
$49.95.) 



Simultaneous play with split screens in 
Spy vs. Spy: The Island Caper. 


Spy vs. Spy: The Island Caper 
(First Star Software)—First Star 
scored a big success with the origi¬ 
nal Spy vs. Spy game, and now the 
sequel is available. The same split¬ 
screen Simulvision/Simulplay 
techniques used in the original are 
employed here, allowing two play¬ 
ers to see what's happening with 
each onscreen character and to act 
independently. Both games are 
based on Mad Magazine's long- 
running comic strip. In the latest 
edition, the spies are after a nuclear 
warhead on a tropical volcanic is¬ 
land. (Commodore 64/128, $29.95; 
Apple II, $34.95.) 

Racter (Mindscape)—One of the 
most novel approaches to computer 
gaming this year may be Racter, a 
program with a mind of its own. 


Racter (short for raconteur) exists to 
converse with you. Type in a ques¬ 
tion, and the program not only re¬ 
sponds from its 2,800-word 
vocabulary and knowledge of Eng¬ 
lish grammar, but may also launch 
into a lengthy tale from the past, 
present, or future. The sentences 
are sophisticated—perhaps a bit 
schizophrenic—and all in fun. 
Racter is already the "author" of its 
own book (the first ever written by 
a computer). The Policeman’s Beard 
Is Half Constructed (Warner Books), 
a collection of short poems, dia¬ 
logues, limericks, and stories. (IBM 
PC, Apple He and lie, Macintosh, 
$44.95. The book is available 
separately.) 



The bobsled run in Winter Games. 


Winter Games (Epyx, Inc.)—Last 
year, Epyx brought out a popular 
computer re-creation of the Sum¬ 
mer Olympics called Summer 
Games. The package reportedly sold 
more than 200,000 copies thanks to 
its smooth, colorful graphics and 
solid game play. Now the company 
has produced two sequels. Summer 
Games II, and most recently. Winter 
Games, in anticipation of the 1988 
Winter Olympics. Ski jumping, 
speed and freestyle events, a ski 
biathlon, and even a bobsled run 
are part of this latest Olympic exer¬ 
cise. (Apple II, Commodore 64, 
Macintosh, from $29-$35.) 
Wishbringer (Infocom, Inc.)—This 
introductory level all-text fantasy is 
another of Infocom's computerized 
text adventures. Wishbringer is suit¬ 
able for the beginning adventurer, 
yet offers the experienced player 
plenty of challenges. The game can 
be played on two levels—with the 
help of magic (for beginners) and 
through logic and puzzle-solving 
without magic (for experienced 
players). (Apple II family, IBM 
PC/AT, Macintosh, others, $39.95; 
Atari, Commodore, $34.95.) © 
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Expert Systems: 

Shortcut To Artificial Intelligence? 


I f an “expert" is defined as some¬ 
one who knows more than most 
people about a given subject, 
then you probably seek advice from 
several experts every week. If you 
or someone in your family is ill, you 
probably go to a physician. After 
asking several questions and run¬ 
ning some tests, the doctor arrives 
at a diagnosis and recommends 
treatment. If your car keeps stalling 
at intersections, you probably take 
it to a mechanic, who checks the car 
and recommends a repair. If you 
find yourself owing too much fed¬ 
eral income tax on April 15, a tax 
consultant can offer ways to help. 
And if you think you've been 
wronged by someone, a lawyer can 
usually decide if it's worthwhile to 
bring a lawsuit. 

All of these people you con¬ 
sult—these experts—are trusted to 
have a sufficient database of knowl¬ 
edge in certain areas so that their 
advice is worth following (and 
worth paying for). 

You can also buy programs for 
your personal computer that have 
been designed to act as consultants 
in such areas as personal finance 
and health care. Are they replace¬ 
ments for real experts? Not accord¬ 
ing to their publishers, who stress 
that the programs are consultants 
only, and that you should almost 
always seek additional help from 
professionals. 

But the day may not be too 
distant when a new type of com¬ 
puter program will replace ex¬ 
perts—or at least, take over part of 
what experts do. These sophisticat¬ 
ed programs, called expert systems, 
contain a database of knowledge 
that human experts can spend years 


Kathy Yakal, Feature Writer 


The term expert system is rapidly 
becoming a new catch-phrase, like 
user-friendly. Some people point to 
"smart" computers now being used 
for diagnosis and trouble-shooting in 
medicine and industry as proof that 
expert systems are possible and prac¬ 
tical. Even some personal computer 
software publishers claim that their 
products possess artificial intelli¬ 
gence or expert system capabilities. 
But others maintain that few, if any, 
true expert systems really exist. 
Here's a look at what's happening. 


acquiring. More significantly, the 
most advanced expert systems now 
under development also incorpo¬ 
rate some of the rules of logic and 
analysis that experts combine with 
their storehouse of facts to solve 
real-life problems. Already, there 
are programs in everyday use that 
analyze geological data to find like¬ 
ly spots for new reservoirs of oil—a 
job which was formerly the exclu¬ 
sive domain of geologists and 
engineers. 

Some people even believe that 
expert systems will become com¬ 
monplace on the next generation of 
home computers, bringing the ad¬ 
vice of family doctors and other 
professionals into the home at the 
touch of a key. But others warn that 
the premature application of expert 
systems could result in serious trou¬ 
ble, especially if they're based on 
an incomplete understanding of the 
decision-making process. 

Though still in their infancy, 
expert systems are opening another 
chapter in the debate over artificial 
intelligence. 


S everal years ago, Joseph Wei- 
zenbaum, professor of com¬ 
puter science at the 
Massachusetts Institute of Technol¬ 
ogy (MIT), wrote a computer pro¬ 
gram called Eliza. His intention was 
to show how a computer could act 
like a psychologist. Eliza would ask 
the user questions about how he or 
she was feeling, then pick up on 
key words or phrases in the answer 
to guide its "therapy." 

Some people are now calling 
Eliza an early expert system. 

"I hadn't even heard that 
phrase used when I wrote it," says 
Weizenbaum today. 

Part of the challenge of design¬ 
ing an expert system is deciding on 
the definition of what it's supposed 
to be and how it's supposed to 
work: Even the experts can't agree. 
For example, Weizenbaum thinks 
Eliza is being characterized as an 
early expert system because he con¬ 
sulted experts before writing it. Al¬ 
though Eliza may seem like it's 
really listening to you and respond¬ 
ing, the program just follows a set 
of rules given it by Weizenbaum. If 
you say you're having a bad day, 
the program may ask you to talk 
about it. Then it may ask how cer¬ 
tain events made you feel, or what 
you think you should do about it. 
Eliza is really more of an interactive 
diary than an expert. 

Now the term expert system 
appears to be changing to apply to 
systems that perform expertly. 

That's still too vague, says 
Weizenbaum. "If one were to char¬ 
acterize systems that perform ex¬ 
pertly as expert systems, then huge 
libraries of scientific and business 
programs that have accumulated 
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over the years—many of which are 
doing a perfectly expert job at 
whatever they do—would all be 
expert systems. So it's not a very 
precise term. 

"Here is an example of some¬ 
thing that nobody considers to be 
an expert system: Today, almost all 
landings of wide-bodied airplanes 
are done automatically by onboard 
computers. I often wonder what the 
world would be like if that particu¬ 
lar work had been done at the AI 
(artificial intelligence) lab at MIT or 
Stanford. I don't think we'd ever 
hear the end of it. But as a matter of 
fact, it was done, one might say, 
anonymously. I have no idea who 
did it, and certainly it does a job 
.that it takes a lot of years to train a 
human being to do, but it's not 
considered an expert system. That's 
odd." 

Y et, defining an expert system 
isn't as simple as pointing to 
a computer which replaces 
the performance of a human. Com¬ 
puters have been doing that for 
years. For instance, though they 
may not be labeled by some aca¬ 
demics as expert systems, process 
control computers perform func¬ 
tions previously carried out by peo¬ 
ple with extensive training. 
"Today, for example, one can see a 
very large—I mean acres and 
acres—petroleum processing fac¬ 
tory, and if you look very, very 
hard, you might find two people in 
these hundreds of acres," says Wei- 
zenbaum. "The whole thing is done 
under computer control. 

"So there's this whole world of 
computerized process control 
which has been doing this for a 
long, long time, and it doesn't think 
of itself, or hasn't, as expert 
control." 

Instead, true expert systems 
seem to be defined according to 
their evolution and architecture— 
such as a database of rules and 
inference mechanisms. Process 
control computers were developed 
by other means. "There are lots of 
process control applications that 
have been done very well that to¬ 
day might have been tackled differ- 
ently in the light of expert 
systems," says Weizenbaum. 

The point at which expert sys¬ 
tems cross the border of artificial 
intelligence is hazier still. To some. 


there is a definite difference; to oth¬ 
ers, a perfectly functioning expert 
system implies artificial 
intelligence. 

Part of the problem is that AI 
researchers diverge over how to ap¬ 
proach the development of expert 
systems and artificial intelligence. 
A long time ago, says Weizenbaum, 
those in the field recognized two 
fundamentally different ways of 
doing business. 

The first is to look at AI basical¬ 
ly as a branch of psychology; that 
is, to use a computer to understand 
the operations of the human mind 
by programming it do high-level 
tasks as we think a human mind 
might do them. The other approach 
is to program a computer to do very 
clever things that ordinarily would 
require human intelligence, but to 
perform the tasks in ways that 
might not be considered by (or even 
possible for) a human being. 

T hese two schools of thought are 
referred to as theory mode and 
performance mode. Weizen¬ 
baum gives an example of theory 
mode: 

"Very early on, people got in¬ 
terested in the idea of computers 
playing chess. It was thought that if 
we could find out somehow what 
goes on in a chess player's mind 
and somehow program that into 
the computer, not only would we 
have a good chess-playing ma¬ 
chine, but we'd also learn a lot 
about psychology, about human 
thought processes. People started 
trying to do that, but if nothing else, 
people got tempted to take short¬ 
cuts, to take advantage of some fea¬ 
tures that were built into the 
computer that no one thought were 
built into the human mind. 

"So from the very beginning, 
the temptation couldn't be resisted, 
and people started designing chess¬ 
playing programs which took enor¬ 
mous advantage of all the 
peculiarities of computers but left 
behind any consideration of how 
the mind does it. And today we 
have powerful chess-playing com¬ 
puters, without the slightest claim 
that they teach us anything at all 
about human thinking. 

"We've sort of drifted from 
theory into performance mode." 

And due to a number of cir¬ 
cumstances, including the military's 


interest in and funding of per¬ 
formance mode AI research, says 
Weizenbaum, there's very little the¬ 
ory work going on today. 

One place where theory work 
is being pursued is at the University 
of California at San Diego, in a 
research center called the Institute 
for Cognitive Science. Paul Smo¬ 
lensky, one of the researchers there, 
has been primarily involved in re¬ 
search on neurally inspired mathe¬ 
matical models of learning, 
memory processes, and problem 
solving. Using what are currently 
believed to be some very general 
characterizations of the brain, Smo¬ 
lensky's work is focused on one 
primary area: to understand people, 
and how to educate them and ad¬ 
vance knowledge in scientific 
fields. 

An outgrowth of this research 
is that it suggests various kinds of 
novel computers that could be 
built—such as connecting lots of 
processors together and letting 
them work in parallel the same way 
neurons work in the brain. Only a 
few prototypes of such machines 
exist today. 

"There s the platonic idea of 
what an expert system is, and then 
there's a whole bunch of actual sys¬ 
tems that people have developed 
that they use the label for," says 
Smolensky. "I'm not aware of any 
that are actually in practice except 
the one that everyone in computer 
science is aware of, and that's the 
DEC [Digital Equipment Corpora¬ 
tion] expert system for designing 
installations of their VAX computer 
systems." 

This expert system, called 
Rl/XCON, was developed by Dr. 
John McDermott, principal scientist 
and associate head of the computer 
science department at Carnegie- 
Mellon University. It configures a 
VAX minicomputer system to the 
customer's specifications, saving 
DEC more than $2.5 million annu¬ 
ally in field costs. R1 /XCON takes 
roughly a minute to execute the 
work it took its human predeces¬ 
sors an hour to complete. 

McDermott and a number of 
other scientists, engineers, and pro¬ 
grammers at Carnegie-Mellon have 
formed a corporation called the 
Carnegie Group to design and mar¬ 
ket Al-based systems for commer¬ 
cial applications. The Carnegie 
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Group is looking into many areas 
that could benefit from expert sys¬ 
tems, including engineering design, 
project management, production 
management, and sensor-based 
machine diagnosis and control. 

O ne of the first steps in creat¬ 
ing an expert system is to 
interview the experts the 
program is supposed to emulate. By 
asking a series of highly detailed 
questions, the designers try to fig¬ 
ure out the decision-making pro¬ 
cess they'll attempt to reconstruct 
in the program. When this thinking 
process is coupled with a database 
of facts, the ideal expert system 
should have a similar capacity for 
analyzing information and arriving 
at the right decision. 

A potential flaw has been cited 
in this approach, however: the diffi¬ 
culty of taking into account the role 
of human intuition, and even emo¬ 
tion, in decision-making. 

This is a vital point for some 
critics of expert systems and artifi¬ 
cial intelligence. For instance, if you 
ask someone what the movie War 
Games was about, they'll probably 
say something like, ''Oh, this kid 


broke into the national defense sys¬ 
tem with his home computer and 
almost started a nuclear war." But 
the defense system wasn't exposed 
to this vulnerability until after the 
government decided that human 
beings could not be trusted to enter 
the codes and push the buttons that 
would launch our nuclear weapons. 
So the weapons were placed under 
computer control, because comput¬ 
ers would not falter for emotional 
reasons at the crucial moment. 

"There's a tremendous amount 
of human judgment that has to go 
into a decision about whether to 
give a computer a certain role in a 
decision-making system," says 
Smolensky. 

Computers may be able to take 
over jobs previously done by hu¬ 
man beings, but that does not make 
them intelligent, let alone experts, 
he says. "Expertise derives in a very 
significant way from intuition and 
intuitive processes. Experts do not 
have any access to that when they 
introspect about how they do what 
they do, and no amount of asking 
an expert questions is going to get 
at the information and the knowl- 
edge that allows the expert to do 


what he or she does. And if we're 
going to understand expertise, we 
have to understand intuition." 

Smolensky warns of the dan¬ 
gers of employing too much tech¬ 
nology too fast, especially in areas 
that have a direct effect on human 
life. He points out that even when a 
relatively simple computer system 
is first installed in a business, there 
are inevitable last-minute bugs and 
problems that must be solved 
before it functions smoothly. "And 
it's only because these systems can 
make a lot of bad mistakes and 
people can go in and fix them after¬ 
ward—basically putting Band-Aids 
on top of Band-Aids on top of 
Band-Aids—that we don't have a 
lot of permanent disaster stories. 

"If you look at the problem of 
making decisions intelligently as 
something that we can only under¬ 
stand when we understand intu¬ 
ition, and if you realize that 
intuition is something that we're 
not going to understand for a long 
time, then you realize that we 
shouldn't be giving computers the 
power to make decisions that are 
important." © 
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tching Hour 


This game of skill and foresight is 
ideal for a bleak, stormy October 
night. Originally programmed for 
the IBM PC with color/graphics 
adapter and PCjr, versions have 
been added for the Commodore 64, 
expanded VIC-20, Atari 400/800, 
XL, and XE, TI-99/4A, and Apple 
Il-series computers. The Commo¬ 
dore 64 and Atari versions require 
a joystick. 


autumn winds send a shiv- 
down your spine and the 
draws near, there's 
entertainment than a 

6 -^„mputer game. "The 

Witching Hour" is an absorbing 
contest of strategy based on Al- 
querque, a board game played in 
ancient Egypt and still popular in 
Spain today. Type in and save 
The Witching Hour, referring to 
the listing for your computer. 
Since every version is similar, 
read the general game rules be¬ 
low, then check the specific notes 
for your computer before running 


the program. 

The Witching Hour pits 
broomstick-straddling witches 
against ethereal ghosts and is 
played on a board of 25 squares 
with 12 pieces to a side. After 
choosing sides, you attempt to 
take your opponent's players by 
jumping over them. You can 
move vertically, horizontally, or 
diagonally. However, certain di¬ 
agonal moves are illegal (the lines 
between squares show where you 
can go) and only one square is 
vacant when the game begins. 

Jumping an opposing player's 
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piece removes that piece from the 
board. If no capture is possible, you 
may move any piece to an adjacent 
empty square. You may not pass up 
a capture—if it's possible to jump 
an opponent, you must always do 
so—and if the first capture puts you 
in position to make another, you 
must jump again (except in the 
Apple version). The computer 
won't let you make illegal moves. 

Play ends when all the pieces 
from one side have been removed 
from the board. You can play 
against a friend or measure your 
skills against the computer (the IBM 
and TI versions also let you watch 
the computer play itself). Like other 
contests of strategy. The Witching 
Hour is simple to learn, but a chal¬ 
lenge to master, and can be played 
at many different levels. Hint: It's 
sometimes smart to sacrifice a play¬ 
er to draw the opponent into a dan¬ 
gerous position. 

IBM PC/PCjr Version 

Each game square on the screen is 
marked with one of the letters of 
the alphabet. To move a piece, first 
type the letter for the square of the 
piece you want to move. Then type 
the letter of the square where you 
want to go. For instance, to move a 
witch from square L to square M, 
type L when the computer prompts 
you with FROM and type M when 
it prompts you with TO. If you 
press Enter without typing a letter, 
the computer takes that turn. Thus, 
to play alone against the computer, 
just press Enter every other turn. 
Press Enter on every turn to watch 
the computer play against itself. 

Commodore 64 And 
VIC- 20 

Both Commodore versions of The 
Witching Hour offer a one- or two- 
player option when the game be¬ 
gins. The 64 version is played with 
a joystick. Plug the joystick into 
port 1 if you are playing alone (of 
course, two joysticks are needed for 
the two-player version). The col¬ 
ored box indicates which square 
you are on. Use the joystick to posi¬ 
tion the box on the piece you wish 
to move, then press the fire button: 
The box will change color. Now 
move the box to the square where 
you want the piece to go, and press 
the button again. If the move is 
legal, the piece appears in the new 


square (if not, you get to try again). 

The VIC-20 game requires at 
least 8K memory expansion and 
uses keyboard controls exactly like 
the IBM version. Each square is 
marked with a letter. When the 
computer prompts you with FROM 
and TO, make your move by enter¬ 
ing the appropriate letters. Before 
loading the VIC version, you must 
enter the following two lines in di¬ 
rect mode (don't add a line number, 
and hit RETURN after each line): 

POKE 43,l:POKE 44,32:POKE 8192,0:NEW 
POKE 36869,240:POKE 36866,150:POKE 
648,30:PRINT" {CLR}" 

Atari Version 

The Atari game requires a joystick 
(a pair for the two-player game) 
and is played like the Commodore 
64 version. The joystick controls a 
colored box. Move the box over the 
piece you want to move, then press 
the fire button. After the box 
changes color, move it to the square 
where you want to put the piece, 
then press the button again. Player/ 
missile graphics are used to form 
the witch and ghost figures, and a 
short machine language routine 
moves them quickly around the 
screen. 

Apple Version 

The Witching Hour runs on any 
Apple II-series computer with DOS 
3.3 or ProDOS. When the program 
starts, you must choose between a 
one- or two-player game. Then the 
game board is drawn and play be¬ 
gins. The flashing box shows which 
square you are on, and is moved 
with keyboard controls. Press the I 
key to go up, J to go left, K for 
down, and L for right. Press RE¬ 
TURN when the box is on the piece 
you want to move, then move the 
box to the desired square and press 
RETURN again. 

TI-99/4A Version 

This program runs on any TI- 
99/4A computer with either con¬ 
sole BASIC or TI Extended BASIC. 
Every game square is labeled with a 
letter, and the pieces are moved on 
the board with keyboard controls. 
The first letter you enter (when the 
computer prompts FROM:) desig¬ 
nates the piece you wish to move. 
The second letter (entered when 
the computer prints TO:) desig¬ 
nates the square you will move to. 


The computer signals with a beep 
when you try an illegal move. The 
game may be played by one or two 
players, or the computer can play 
both sides. Whenever you press 
ENTER without typing a letter, the 
computer takes that move. 



"The Witching Hour" for IBM PC/PCjr 
forms ghost and witch shapes with PUT 
statements. 


Program 1: The Witching 
Hour, PC/PCjr Version 

For instructions on entering this listing, please 
refer to "COMPUTEi's Guide to Typing In 
Programs'' published bimonthly in COMPUTE!. 

NK 10 GOSUB 530: GOTO 280 
OS 20 H=0:K=0:FOR A=7 TO 35:G0SU 
B 60:NEXT 

6F 30 GOSUB 170: IF H<1 THEN 250 
SE 40 H=0:K=0:A=T: GOSUB 60: IF H< 
1 THEN 250 
HI 50 GOTO 30 

OK 60 IF B (A) —0 OR B(A)=-S OR B< 
A)=2 THEN RETURN 
BP 70 FOR B=0 TO D(A-7):C=A+M(B> 

:IF B(C)=S OR B(C)=2 THEN 
160 

OC 80 IF B(C) THEN 120 
NO 90 SC=RND(1)*.9: IF HOC THEN 
H=SC:F=A:T=C 

AE 100 IF CK=1 AND T1=C THEN L=1 
:B=7 

EA 110 GOTO 160 
NN 120 IF B (C+M (B) ) THEN 160 
JH 130 SC=1+RND(1)*.9:IF HOC TH 
EN H=SC:F=A:T=C+M(B):K=C 
HK 140 IF CK=0 THEN 160 
6P 150 IF T1=C+M<B> THEN L=1:K1 = 
C:B=7 

SN 160 NEXT: RETURN 
HO 170 B(T)=B(F):B(F)=0:A=F:GOSU 
B 760 

IF 180 IF K THEN B (K) =0: A=K: GOSU 
B 760 

DO 190 A=T: GOTO 760 
HB 200 GOSUB 520: IF S=1 THEN PR I 
NT"The witches win!":GOTO 
220 

BA 210 PRINT"The ghosts win!" 

OF 220 LOCATE 23, 10: PRINT“Hit a 
key to play again” 

OE 230 K*=INKEY*:IF K*=”" THEN 2 
30 

SE 240 RUN 
HI 250 S=-S:H=0:A=7 
LP 260 IF A=36 THEN 200 
HL 270 GOSUB 60: IF H=0 THEN A=A+ 
1:GOTO 260 
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The complete 1541 enhancement system ... 

STARDOS 

MAKES 

GREAT COFFEE!! 

The 1541 is the slowest disk drive on planet earth. Even simple operations seem to take 
forever. Quickloaders and Fastloaders that software-patch the operating system are vulnerable 
to being knocked out of memory, rendering them totally useless. Even Flashier products that 
require permanent modifications to the 64 and 1541 can’t compete with the blinding speed of 
STARDOS. 

STARDOS accelerates every (yes, we said every) function of the 1541 disk drive. Other 
fast loaders only load PRG files faster. STARDOS also speeds up SEQ, REL, USR and DIRECT 
ACCESS files. Everything including FORMAT, VERIFY, SCRATCH, VALIDATE, INITIALIZE and 
COPY are much faster. In addition STARDOS adds a vast array of easy to use commands all at 
the touch of a key. 


A sampling of STARDOS features: 

• Accesses ALL types of files up to 1,000% faster! 

• Saves up to 300% faster than normal (with extended 
verify) 

• DOES NOT CHANGE THE SPEED AT WHICH THE 
DRIVE MOTOR SPINS 

• Makes your 1541 MORE RELIABLE and LESS PRONE 
TO BREAK DOWN or OVERHEAT! 

• STARDOS is fully expandable for multiple fast 
disk drives 

• Easy (5 minute) plug in installation. User friendly 
manual 

• 100% compatible with software and serial bus 
peripherals 

• Adds years of life to your disks and drive in 
reduced wear 

• Cures a number of bugs in the Commodore 64 and 1541 
disk drive including : 

• The damaging ‘Head Knock’ that can mis-align 
your 1541 

• The@: Save with replace bug!! 

• The Editor lock-up bug 


Harness the full power of your disk drive with the 
built in DOS wedge 

Lock/unlock files and protect/unprotect disks from 
the keyboard 

Powerful sector editor allows direct viewing of diskette 
Upgrades computer and drive to the latest Commodore 
specifications 

Instant access to the built in mini-wordprocessor 
for short notes and memos 
Built in copier copies all file types (even relative) 
easily and effectively 

Built in disk duplicator copies an entire diskettte 
in less than 3 minutes 

Fully expanded machine language monitor, always 
on line 

Quality hardware. Full 120 day repair or replace 
warranty 

Satisfaction guaranteed or money back—no questions 
asked 

(Oh, by the way, we lied, STARDOS makes LOUSY 
COFFEE ) 


Simply the best. $74.95 

[Take advantage of our introduction special at $64.95] 


Personalize your C64! for a $10 (non-refundable) charge 
we will include a 21 character power-on message with 
your favorite screen, border and text colors. Example: 


J, . . . WRITE OR PHONE . . . 

STORPOINT SOFTWARE 

Star Route 10 Gazelle CA 96034 [916] 435-2371 

1 |a\|i IkIeI ' Is I |c|o[ai|m|o|d |o |r.|e |- |6 |Y | | 



Backarounri Hl*cK Border Red Text 


When ordering by mail: 

• $64.95 + 3.00 shipping • Calif, residents add 6% sales tax 

• $64.95 + 4.00 COD orders • VISA or Mastercard accepted 

• Shipping out of USA $6.00 Please allow 4-6 weeks for delivery. 

Write of phone for additional information. 

‘Trademark of Commodore Business Machines 



















6G 280 D=0: GOSUB 520: IF S=1 THEN 
PRINT"Bhost’s turn”:SOTO 
300 

OF 290 PRINT"Witch’s turn" 

BN 300 PRINT TAB (16) "From: 

NJ 310 E=E+1:K*=INKEY*:IF K*= M " 
THEN 310 

OC 320 IF ASC(K*)=13 THEN GOSUB 
520:RANDOMIZE E:GOTO 20 
SO 330 IF ASC (K*) <97 OR ASC(K*)> 
121 THEN 310 

DN 340 PRINT K*: A=N (ASC (K*)-97) : 
Z=A 

D8 350 LOCATE 23, 18: PRINT"To: "; 

6C 360 K*= INKEY*: IF .K*="" THEN 3 
60 

BO 370 IF ASC (K*) <97 OR ASC(K*)> 
121 THEN 360 

BN 380 PRINT K*: T1=N (ASC (K*)-97) 
6C 390 CK=1:L=0:K1=0:GOSUB 60:CK 


KC 400 H=0:A=7 
BH 410 IF A=36 THEN 440 
NB 420 GOSUB 60: IF H>=1 THEN 440 
FH 430 A=A+1: IF A<36 THEN 420 
OL 440 IF D THEN 470 
DN 450 IF L THEN 4B0 
BF 460 SOUND 99,5: GOTO 280 
PO 470 IF L=0 OR K1=0 THEN SOUND 
99,5:GOTO 510 

DO 480 IF K1=0 AND H>=1 THEN 460 
CD 490 F=Z:T=T1:K=K1:GOSUB 170:1 
F K1=0 THEN 250 

«6 500 A=T:Z=A:H=0:GOSUB 60:IF H 
<1 THEN 250 

BD 510 GOSUB 520:D=1:GOTO 350 
NO 520 LOCATE 20,1: FOR B=1 TO 3: 
PRINT:PRINT" 

";:NEXT: 

LOCATE 21,14:RETURN 
AE 530 KEY OFF: SCREEN 1: COLOR 0, 
1:CLS:DEFINT C,W 
LI 540 DIM Cl (98) ,W1 (98) ,SQ(98) , 
B (42) , D (28) , X (35) , Y (35) , L 
(35) , XL (35) , YL (35) , N (28) 

LP 550 LINE (50,80) — (81,103) , 1, B 
IH 560 LOCATE 12,12: PRINT “The 
Witching Hour 

DA 570 LINE (230,80) - (261,103) , 1 
, B 

NN 580 GET (50,80) - (81,103) , SQ 
II 590 FOR A=0 TO 52: READ Cl (A): 
NEXT 

ON 600 PUT (56,82), Cl 
NA 610 GET (50, 80)-(81,103) , Cl 
NC 620 FOR A=0 TO 69: READ W1 (A) : 
NEXT 

OC 630 PUT (232,82) , W1 
NN 640 GET (230, 80) - (261,103) , W1 
II 650 S=—1:FOR A=0 TO 7:READ M( 
A):NEXT 

PN 660 FOR A=0 TO 28:READ D(A):N 
EXT 

LD 670 B=4B:C=32:D=59:E=12 
OL 680 FOR A=0 TO 4: FOR F=0 TO 4 
:H=6*A+F+7:X(H)=B*F+D-15: 
Y(H)=C*A+E-11 

BO 690 L (H)=G+97:N(G)=H: G=G+1: XL 
(H)=6*F+10:YL(H)=4*A+1:NE 
XT:NEXT 

AF 700 CLS: FOR A=0 TO 4: LINE (D, 
C*A+E)-(B*4+D,C*A+E),2:NE 
XT 

BH 710 FOR A=0 TO 4: LINE (B*A+D, 
E)—(B*A+D,C*4+E),2:NEXT 
OE 720 A=0:F=0:GOSUB 740:A=B+B:G 
OSUB 740:F-C+C:GOSUB 740: 
A-0:GOSUB 740 

EF 730 FOR A=0 TO 42:READ B(A):G 
OSUB 760:NEXT:RETURN 
BP 740 LINE (D+A,E+F)-(2*B+D+A,2 
*C+E+F),2 

FJ 750 LINE (D+A,2*C+E+F)-(2*B+D 


+A,E+F>,2:RETURN 
KG 760 IF B (A) =2 THEN RETURN 
FP 770 IF B (A) <0 THEN PUT (X(A), 
Y(A)),W1,PSET 

HH 780 IF B(A>=0 THEN PUT (X(A>, 
Y(A)),SQ,PSET 

KL 790 IF B (A) >0 THEN PUT (X(A>, 
Y(A)),Cl,PSET 

BN 800 LOCATE YL (A) , XL (A) : PRINT 
CHR*(L(A)):RETURN 
IJ 810 DATA 36,20,-256,192,0,-96 
1,0,16128,255,0,-1,192,-3 
328,-16177,0,-1,192 
LN 820 DATA 16128,255,0,-1009,-1 
6381,1020,16368,-16,-1,-3 
841,-1,-769,-16336,-193 
FC 830 DATA 192,16128,-3841,0,-2 
41,252,768,-769,0,16128,2 
52,0,-4033,0,16128,192,0 
DB 840 DATA -4081,0,0,255,0 
01 850 DATA 52,20,48,0,3,15360,2 
40,768,0,-241,252,-16381, 
768,-1,960,192,-256 
CP 860 DATA -769,-4081,0,-241,16 
383, 255,3840, 4095, 12543,0 
,-1009,-1,192,768,-61 
06 870 DATA 207,0,3840,-16129,0, 
0,-12289,192,0,-253,-1636 
9,0,768,-15361,240 
BP 880 DATA -32768,-253,15600,0, 
16B,-193,-16369,-22016,-8 
1,-21761,-24406,16296 
IL 890 DATA -1,0,-32768,-241,252 
,0,3840,-3841,0,0,-16372 
(L 900 DATA -6,1,6,-1,-5,7, 5,-7 
NN 910 DATA 7, 3, 7,3, 7,0, 3,7,3, 7, 
3,0 

DN 920 DATA 7,3,7,3, 7,0, 3,7,3,7, 
3,0,7,3,7,3,7 

II 930 DATA 2, 2, 2, 2,2, 2, 2,-1,-1, 
-1,-1,-1,2 

Cl 940 DATA -1,-1,-1,-1,-1,2,-1, 
-1,0,1,1,2 

BJ 950 DATA 1, 1, 1, 1, 1,2, 1, 1, 1, 1, 
1,2,2,2,2,2,2,2 


Program 2: The Witching 
Hour, Commodore 64 
Version 

Version by Kevin Mykytyn, Editorial 
Programmer 

For instructions on entering this listing, please 
refer to "COMPUTEI's Guide to Typing In 
Programs" published bimonthly in compute!. 

10 POKE 56,56:CLR:Z=1:U=53287 
:rem 132 

20 POKE53281,0:POKE53280,0:PRI 
NT" {CLR} {2 DOWN} "TAB (11)" 
fYEL}THE WITCHING HOUR 
{2 DOWN}{WHT}" :rem 134 

25 PRINTTAB(11)"JOYSTICK IN PO 
RT 1C2 DOWN}":PRINTTAB(6)"T 
WO JOYSTICKS FOR TWO PLAYER 
S :rem 102 

30 PRINTTAB(8)"{3 DOWN}{CYN}PR 
ESS DOWN FOR ONE PLAYER":PR 
INTTAB(11)"{2 DOWN}UP FOR T 
WO PLAYERS :rem 252 

50 NP=PEEK(56321)AND3:IFNP=3TH 
EN50 : rem 40 

60 IFNP=2THEN110 :rem 195 

70 PRINTTAB(9)"{3 DOWN}{GRN}PR 
ESS LEFT TO GO FIRST":PRINT 
TAB(11)"{2 DOWN}RIGHT TO GO 
SECOND" :rem 141 

80 IF(PEEK(56321)AND4)< > 4THENF 
1=1:GOTO110 :rem 141 


90 IF(PEEK(56321)AND8)< >8THENF 
1=-1:GOTO110 :rem 195 

100 GOTO80 :rem 50 

110 PRINT"{CLR}":GOSUB650:S$=" 
{OFF}{HOME}{YEL}{13 RIGHT} 
":GOTO350 :rem 68 

120 H=0:K=0:FORA= 7 TO 35:GOSUB 
160:NEXT :rem 229 

130 GOSUB270:IF H<1 THEN340 

:rem 241 

140 H=0:K=0:A=T:GOSUB160:IF H< 
1 THEN340 :rem 221 

150 GOTO130 :rem 99 

160 IF B(A)=0 OR B(A)=-S OR B( 

A)=2 THEN RETURN . :rem 140 
170 FOR B=0 TO D(A—7):C=A+M(B) 
:IF B(C)=S OR B(C)=2 THEN2 
60 :rem 237 

180 IF B(C) THEN220 :rem 193 

190 SC=RND(1)*.9:IF H<SC THEN 
{SPACE}H=SC:F=A:T=C 

:rem 157 

200 IF CK=1 AND T1=C THEN L=1: 

B=8 :rem 207 

210 GOTO260 :rem 100 

220 IF B(C+M(B)) THEN260 

:rem 203 

230 SC=1+RND(1)*.9:IF H<SC THE 
N 'I=SC:F=A:T=C+M(B) :K=C 

: rem 4 

240 IF CK=0 THEN260 :rem 231 
250 IF T1=C+M(B) THEN L=1:K1=C 
:B=8 :rem 70 

260 NEXT:RETURN :rem 241 

270 A=F:B(T)=B(F):B(F)=0:GOSUB 
1130 : rem 147 

280 IFK THEN B(K)=0:A=K:GOSUBl 
130 :rem 112 

290 A=T:GOTO1130 :rem 165 

300 GOSUB610:IF S=1 THEN PRINT 
LEFT$(S$,14)"{YEL}THE WIT 
CHES WIN1":GOTO320:rem 137 
310 PRINT LEFT$(S$,15)"{YEL}TH 
E GHOSTS WIN I" :rem 116 

320 PRINT"{HOME}{DOWN}"SPC(12) 
"HIT FIREBUTTON" :rem 79 

330 WAIT56321,16,16:POKE53269, 
0:POKE53248,0:RUN :rem 186 
340 S=—S:Z=-(Z=0):H=0:A=7 

:rem 155 

345 IF A=36 THEN 300 :rem 212 

347 GOSUB160:IFH=0THEN A=A+1:G 
OT0345 :rem 140 

350 D=0:GOSUB610:IF NP=1 AND S 
=-l THEN Z=1 :rem 39 

360 IF Fl=-1 THEN Z=1 :rem 49 

370 IF NP=1 AND S=F1 THEN120 

:rem 209 

380 IF S=1 THEN PRINT S$"GHOST 
'S TURN":GOTO400 :rem 177 
390 PRINT S$"WITCH'S TURN" 

:rem 38 

400 Q=3:R=3:FL=0:GOTO480 

:rem 153 

410 IF ( PEEK( 56320+Z) AND16) 0 16 
ANDFL=0THENFL=1:GOSUB490:A 
=X:Z Z=A:POKEU,5:GOTO430 

:rem 136 

420 IF(PEEK(56320+Z)AND16)< >16 
ANDFL=1THENGOSUB490:T1=X:P 
OKEU,7:GOTO500 :rem 40 

430 JX=15-(PEEK(56320+Z)AND15) 

: ONJXGOTO440,450,410,460,4 
10,410,410,470:GOTO410 

:rem 54 

440 Q=Q-1*-(Q>1):GOTO480 

:rem 76 

450 Q=Q+1*-(Q<5):GOTO480 

:rem 77 

460 R=R-1*—(R>1):GOTO480 


470 R=R+1*-(R<5) 


81 

67 
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A SPECIAL APPLE-SPECIFIC PUBLICATION FROM THE PUBLISHERS 
OF COMPUTE!, COMPUTE!'s Gazette, AND 
BEST-SELLING COMPUTE! BOOKS. 


Buyer's Guide To Business Software 

compi; 


EPs 


ii? 

ii?i 

r F APPLICATIONS SPECIAL 



The second semiannual 
edition of COMPUTE!'s 
Apple Applications Special 
goes on sale 
October 1,1985. 

Price: $3.95 
(in Canada $4.75) 


Editorial 

COMPUTEi's Apple Applications Special second issue features applications, purchasing de¬ 
cisions, tutorials, and in-depth feature articles for owners and users of Apple personal 
computers. There are exciting applications for business, school, and home. From software 
to hardware to the state of the industry, this special issue serves as a useful tool and a 
handy reference. The special issue includes: 


Features 

Apple at Ten, and What's Coming in the 
Next Decade: This in-depth look de¬ 
scribes Apple's place in the industry and 
predicts what it will do in the future. Can 
the Macintosh Office concept succeed 
against IBM? How will Apple retain its 
position in the market when the newest 
round of computers—such as the Com¬ 
modore Amiga and Atari ST—reaches 
homes and schools? This intriguing sur¬ 
vey includes comments by computer in¬ 
dustry analysts and software 
manufacturers. 

Cruising MAUG: The Micronet Apple 
Users Group is probably the best 
connection any Apple owner can 
make. Available through CompuServe, 
MAUG lets Apple users communicate 
and exchange information and pro¬ 
grams. This guide to MAUG describes 
just some of its features, and highlights 


programs from Macintosh desktop util¬ 
ities to complete terminal software, all 
of which can be retrieved with a 
modem. 

The Big Picture: Innovative hardware 
and software can transform the Apple II 
computer into a powerful graphics ma¬ 
chine and enhance the Macintosh's al¬ 
ready considerable abilities. Drawing 
programs, digitizers, and graphics tab¬ 
lets are featured and evaluated in this 
buyer's guide and tutorial. 


Applications 

Dr. Disk: Allows you to read from, edit, 
and write to any block on any disk. An 
excellent utility which lets you examine 
disk contents, manipulate catalogs, and 
even change machine language 
programs. 


Enhanced Applesoft INPUT: A short ma¬ 
chine language utility which turns 
Applesoft INPUT into a more flexible and 
powerful statement. Allows entry of any 
valid numeric expression, as well as 
commas, quotes, or colons as responses 
to the INPUT prompt. 

The Office for Everyone: A major 
applications feature on using Word, 

Chart, File, Multiplan, and MacTerminat 
on the Macintosh. This tutorial shows 
how to turn the Macintosh into a power¬ 
ful business computer. 

The ApWriter: This simple BASIC program 
turns any Apple ll-series computer into an 
electronic-style typewriter. Set margins 
and tabs, underline, and print out letters, 
memos, and notes. 

Quality editorial in the style and tradition 
of COMPUTE!, the leading magazine of 
home, educational, and recreational 
computing. 


There's also a disk available which includes all the programs from the magazine. The SVi-inch 
floppy disk for the Apple II+ , lie, or lie costs $16.95 and is available only from COMPUTE! 
Publications. Send in the attached card with your payment today to order the Disk. 

Look for the October issue of COMPUTEi's Apple Applications Special on sale where 
you buy other COMPUTE! publications, or at Apple computer retailers. You can also order 
directly from COMPUTE! Publications. 

To order, send in the attached card with your payment or call toll-free 800-334-0868 
(in NO 919-275-9809.) 
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480 POKE 53248,R*40+47:POKE 53 
249,Q*40+26:FORTD=1TO100:N 
EXT:GOTO410 :rem 93 

490 X=(Q-l)*6+(R-l)+7:WAIT5632 
0+Z,16,0:RETURN :rem 29 

500 CK=1:L=0:K1=0:GOSUB160:CK= 

0 :rem 45 

501 H=0:A=7 :rem 58 

502 IFA=36THEN510 :rem 210 

503 GOSUB160:IFH>=1THEN510 

! rem 4.9 

504 A=A+1:IFA<36THEN503:rem 42 

510 IF D THEN540 :rem 49 

520 IF L THEN545 :rem 63 

530 GOSUB620:GOTO350 :rem 187 
540 IF L=0 OR K1=0 THEN G0SUB6 

20:GOTO600 :rem 187 

545 IFK1=0ANDH>=1THEN530 

:rem 164 

550 F=ZZ:T=T1:K=K1:GOSUB270:IF 
K1=0 THEN340 :rem 42 

560 A=T:ZZ=A:H=0:GOSUB160:IFH< 
1 THEN340 : rem 93 

600 D=1:Q=3:R=3:P0KEU,5:G0T048 
0 :rem 109 

610 PRINT"{HOME}{BLK]:F0RA1= 
1TO2:FORA2=1TO40:PRINT" "; 
:NEXTA2,A1:RETURN :rem 15 
620 POKE 54276,33:FOR TD=1 TO 
{SPACE}600:NEXT:POKE 54276 
,32:RETURN :rem 86 

630 PRINT"{HOME;:FORA=0TO23: 
PRINT"i71{40 SPACES}";:NEX 
T :rem 232 

640 RETURN :rem 122 

650 W$="B73{RVS}@AB{DOWN} 

{3 LEFT}FGH{DOWN}{3 LEFT}L 
MN{2 UP}":G$="|71{RVS}CDE 
{DOWN}{3 LEFT}IJk(dOWN} 

{3 LEFT}OPQ{2 UP}" :rem 18 
660 BL$=“|73{OFF}0§Y§P{DOWN} 

{3 LEFT}£H§ |N§{DOWN} 

{3 LEFT}LgPi@{2 UP}" 

:rem 214 

670 DIMD(28),B(42),X(35),Y(35) 
:rem 22 

680 S=-l:FORA=0TO7:READM(A):NE 
XT:FORA=0TO28:READD(A):NEX 
T :rem 100 

690 PORA=0TO4:FORF=0TO4:H=6*A+ 
F+7:X(H)=5*F+8:Y(H)=5*A+2: 
NEXTF,A:FORA=0TO42:rem 195 
700 READB(A):NEXT:GOSUB770:GOS 
UB1190:FORA=0 T042:GOSUB113 
0:NEXT:RETURN :rem 199 

710 DATA -6,1,6,-1,-5,7,5,-7 

720 DATA 7,3,7,3,7,0,3,7^3/7,3 
,0 :rem 9 

730 DATA 7,3,7,3,7,0,3,7,3,7,3 
,0,7,3,7,3,7 :rem 241 

740 DATA 2,2,2,2,2,2,2,-1,-1,- 
1,-1,-1,2 :rem 43 

750 DATA -1, -1, -1, -1, -1,2, -1, - 
1,0,1,1,2 :rem 34 

760 DATA 1,1,1,1,1,2,1,1,1,1,1 
,2,2,2,2,2,2,2 :rem 29 

770 POKE56334,0:IFPEEKf15361)= 
192THEN830 :rem 16 

780 PRINT"{CLR}{10 DOWN}"SPC(1 
5)"{YEL}PLEASE WAIT" 

:rem 27 

790 FOR A=15360 TO 15503:READ 
{SPACE}B:POKE A,B:NEXT 

:rem 206 

800 POKE 1,51:FORA=0TO1023:POK 
E14336+A,PEEK(A+53248):NEX 
T:POKE 1,55 :rem 85 

810 FOR A=14952 TO 14967:READB 
:POKE A,B:NEXT :rem 218 

820 FOR A=832 TO 895:READB:POK 
EA,B:NEXT :rem 14 


830 POKE 53272,30:POKE 56334,1 
:POKE 53270,216 :rem 86 

840 POKE2040,13:P0KE5326D,1:PO 
KE53275,0:POKE53271,1:POKE 
53287,7 :rem 88 

850 FOR A=54272 TO 54295:POKE 
{SPACE}A,0:NEXT:POKE 54296 
,15:POKE 54273,10 :rem 49 
860 POKE 54277,21 :RETURN 

:rem 127 

870 DATA255,192,192,192,192,19 
2,208,212 :rem 196 

880 DATA255,0,0,8,8,10,42,5 

:rem 86 

890 DATA255,3,3,3,3,3,131,3 

:rem 82 

900 DATA255,192,192,193,192,19 
3,193,193 :rem 203 

910 DATA255,0,0,80,84,85,153,8 

5 :rem 43 

920 DATA255,3,3,3,3,3,3,3 

:rem 234 

930 DATA213,197,197,192,193,22 
5,233,234 :rem 197 

940 DATA69,84,20,84,81,80,80,8 

6 :rem 59 

950 DATA3,3,3,3,3,67,19,171 

:rem 91 

960 DATA192,192,212,213,213,20 
8,192,192 :rem 184 

970 DATA85,20,20,85,85,85,85,2 
1 :rem 54 

980 DATA3,23,87,87,71,3,3,67 

:rem 160 

990 DATA232,224,193,192,192,19 
2,192,255 :rem 200 

1000 DATA21,84,80,0,0,0,0,255 
:rem 162 

1010 DATA3,3,3,3,3,3,3,255 

:rem 17 

1020 DATA192,192,192,192,192,1 
92,192,255 :rem 241 

1030 DATA21,5,5,5,1,0,0,255 

:rem 65 

1040 DATA67,67,3,67,83,23,3,25 
5,128,64,32,16,8,4,2,1,1, 
2,4,8,16,32,64,128:rem 44 
1050 DATA255,255,255,192,0,3,1 
92,0 :rem 179 

1060 DATA3,192,0,3,192,0,3,192 
:rem 226 

1070 DATA0,3,192,0,3,192,0,3 

:rem 119 

1080 DATA192,0,3,192,0,3,192,0 
:rem 225 

1090 DATA3,255,255,255,0,0,0,0 
:rem 223 

1100 DATA0,0,0,0,0,0,0,0 

:rem 144 

1110 DATA0,0,0,0,0,0,0,0 

:rem 145 

1120 DATA0,0,0,0,0,0,0,0 

:rem 146 

1130 IFB(A) = 2 THENRETURN 

:rem 166 

1140 POKE781,Y(A):POKE782,X(A) 
:POKE783,0:SYS65520 

:rem 110 

1150 IFB(A)=0THENPRINTBL$ r 

:rem 64 

1160 IFB(A)>0THENPRINTG$; 

:rem 251 

1170 IFB(A)<0THENPRINTW$; 

:rem 10 

1180 RETURN :rem 170 

1190 GOSUB630:PRINT"{HOME} 

{PUR}"?:R$=CHR$(13):A$=" 

{8 SPACES}{3 RIGHT}CC 
{3 RIGHT}CC{3 RIGHTjCC 
{3 RIGHT}<?C"+R$+R$:rem 82 
1200 B$="{8 SPACES}{RIGHT}- 
{RIGHT}M{2 RIGHT}— 


{2 RIGHT}N{RIGHT}B{RIGHT} 
M{2 RIGHTlB{2 RIGHT}N 
TRIGHTjB" :rem 89 

1210 B$=B$+R$+"{8 SPACES} 

{RIGHT}B{2 RIGHT}M{RIGHT} 
B{RIGHT7n{2 RIGHT7B 
12 right7m{rightJbIright} 
n{2 right7b"+r$+r$ 

:rem 152 

1220 C$="{8 SPACES}{RIGHT}B 

{2 RIGHT}N{RIGHT}B{RIGHT} 

M{ 2 right7b{2 right}n 
Tright}b{right}m{2 right} 
B"+R$ :rem 199 

1230 C$=C$+"{8 SPACES}{RIGHT}B 
{RIGHT}N{2 RIGHT}B 
{2 RIGHT}M{ RIGHT}B{RIGHT} 
N{2 RIGHT7b{2 right}m 
lRIGHT}B"+R$+R$ :rem 251 
1240 PRINT"{CLR}{3 DOWN}"A$B$A 
$C$A$B$A$C$LEFT$(A$,28):R 
ETURN :rem 65 



The Commodore 64 version of "The 
Witching Hour" features sprite graphics. 



Use keyboard controls to play "The 
Witching Hour" on the VIC-20. 


Program 3: The Witching 
Hour, VIC-20 Version 

Version by Kevin Martin, Editorial 
Programmer 

For instructions on entering this listing, please 
refer to “COMPUTEI's Guide to Typing In 
Programs" published bimonthly in compute!. 

10 Z=1:POKE36879,9:POKE36878,2 
39 :rem 75 

20 PRINT "{CLR}{YEL}{8 DOWN} 

{2 SPACES}THE WITCHING HOUR 
:rem 104 

30 PRINT "{2 DOWN}CHOOSE: 'l 1 
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{SPACE}PLAYER" :rem 157 

40 PRINT SPC(8)"{2 DOWN}'2' PL 
AYERS" srem 102 

50 GET A?:IFA$=""THEN50:rem 237 

55 NP=ASC(A$)—48:1FNP<10RNP> 2T 
HEN50 srem 130 

60 IFNP=2THEN110 srem 195 

70 PRINT"{DOWNjPRESSs"SPRINT" 
{2 SPACES}'1' TO GO FIRST"s 
PRINT"{2 SPACES} 1 2 1 TO GO S 
ECOND" srem 219 

75 GETA?sA=ASC(A?+CHR?(0))-48s 
IFA<10RA> 2THEN75 srem 160 

80 IFA=1THENF1=1 srem 186 

90 IFA=2THENF1=-1 srem 233 

110 PRINT"{CLR}"sGOSUB650sS$ = " 
{OFF}{HOME}{4 RIGHT}"sGOTO 
350 srem 161 

120 H=0sK=0sFORA=7 TO 35sGOSUB 
160sNEXT srem 229 

130 GOSUB270 sIF H<1 THEN340 

srem 241 

140 H=0 sK=0 sA=TsGOSUB160 sIF H< 
1 THEN340 srem 221 

150 GOTO130 srem 99 

160 IF B(A)—0 OR B(A)=-S OR B( 
A)=2 THEN RETURN srem 140 

170 FOR B=0 TO D(A-7)sC=A+M(B) 
sIF B(C)=S OR B (C)=*2 THEN2 
60 srem 237 

180 IF B(C) THEN220 srem 193 
190 SC= RND(1)*•9 sIF H<SC THEN 
{SPACE j H= SC s F=As T=C 

srem 157 

200 IF CK=1 AND T1=C THEN L=1s 
B=8 srem 207 

210 GOTO260 srem 100 

220 IF B(C+M(B)) THEN260 

srem 203 

230 SC=l+RND(l)*.9sIF H<SC THE 
N H=SCsF=AsT=C+M(B)sK=C 

srem 4 

240 IF CK=0 THEN260 srem 231 
250 IF T1=C+M(B) THEN L=lsKl=C 
:B=8 srem 70 

260 NEXTsRETURN srem 241 

270 A=FsB(T)=B(F)sB(F)=0sGOSUB 
1130 srem 147 

280 IFK THEN B(K)=0sA=KsGOSUBl 
130 srem 112 

290 A=TsGOTOll30 srem 165 

300 GOSUB610 sIF S=1 THEN PRINT 
"{HOME}{3 SPACES}THE WITCH 
ES WIN1"SGOTO320 srem 86 

310 PRINT"{HOME}{3 SPACES}THE 
{SPACE}GHOSTS WIN 1"srem 64 
320 PRINT"{HOME}{DOWN} 

{5 SPACES}HIT SPACEBAR" 

srem 176 

330 GETA?sIFA?<>" "THEN330 

srem 140 

331 RUN srem 140 

340 S=-SsZ=-(Z=0)sH=0:A=7 

srem 155 

345 IF A=36 THEN 300 srem 212 
347 GOSUB 160sIF H=0 THEN A=A+ 
1sGOTO 345 srem 140 

350 D=0 sGOSUB610sIF NP=1 AND S 
=-l THEN Z=1 srem 39 

360 IF Fl=—1 THEN Z=1 srem 49 
370 IF NP=1 AND S=F1 THEN120 

srem 209 

380 IF S=1 THEN PRINT S?"GHOST 
•S TURN"sGOTO400 srem 177 
390 PRINT S?“WITCH 1 S TURN" 

srem 38 

400 PRINTS?"{DOWN}{2 LEFT}FROM 
s {LEFT}"; srem 109 

410 GETA? sA—ASC{A?+CHR?(0))sIF 
A<65ORA>89THEN410 srem 210 
420 PRINTA?;sA=N(A-65)sZ=A 


430 PRINT SPC(5)"TO s {LEFT}"; 

srem 137 

440 GETA?sTl=ASC(A?+CHR?(0))si 
FT1<65ORT1>89THEN440 

s rem 164 

450 PRINTA? sTl=N(Tl-65)s rem 67 

500 CK=lsL=0sKl=0sGOSUB160sCK= 

0 srem 45 

501 H=0sA=7 srem 58 

502 IF A=36 THEN 510 srem 210 

503 GOSUB 160sIF H>=1 THEN 510 

srem 49 

504 A=A+1sIF A<36 THEN 503 

srem 42 

510 IF D THEN540 srem 49 

520 IF L THEN545 srem 63 

530 GOSUB620 SGOTO350 srem 187 
540 IF L=0 OR K1=0 THEN GOSUB6 
20sGOTO570 srem 193 

545 IF K1=0 AND H>=1 THEN 530 
srem 164 

550 F=ZsT=TlsK=KlsGOSUB270sIF 
{SPACE}K1=0 THEN340 

srem 208 

560 A=Ts Z=As H=0 sGOSUBl60sIFH<1 
THEN340 srem 3 

570 GOSUB610SPRINT"{HOME} 

{2 SPACES}JUMP AGAIN (Y/N) 
?" srem 211 

580 GETA? siFA? < >"Y"ANDA?< >"N"T 
HEN580 srem 55 

590 GOSUB610 sIFA? = "N"THEN S=-S 
SGOTO350 srem 252 

600 D=1SPRINT”{HOME}";SGOTO430 
srem 171 

610 PRINT"{HOME}{RED}{OFF}";sF 
ORAl=lT03 sF0RA2=lT022 sPRIN 
T" "; sNEXTA2, A1 sRETURN 

srem 46 

620 POKE 36874,240sFOR TD=1 TO 
80 sNEXTsPOKE 36874,0sRETU 
RN s rem 43 

630 PRINT"{HOME}";sFORA=0TO2Is 
PRINT"{22 SPACES}";sNEXT 

srem 76 

640 RETURN srem 122 

650 W?="{BLK}{RVS}@AB{DOWN} 

{3 LEFT}FGH{DOWN}{3 LEFT}L 
MN{2 UP}"sG?="{BLK}{RVSjCD 
E{DOWN}{3 LEFT}IJK{DOWN} 

{3 LEFTjoPQ{2 UP}"srem 254 
660 BL?="{YEL}{OFF}OgTlP{DOWN} 
{3 LEFT}iG§ gMlTDOWN} 

{3 LEFT}LB@1@{2 UP}" 

srem 169 

670 DIMD(28),B(42),X(35),Y(35) 
,N(28) srem 75 

680 S=-lsFORA=0TO7 sREADM(A)sNE 
XTsFORA=0TO28 sREADD(A)sNEX 
T srem 100 

690 FORA=0TO4 s FORF=0TO4 s H=6 *A+ 
F+7 sX(H)=4*F+2 sY(H)=4*A+3 s 
N(G)=HsG=G+l srem 190 

695 NEXTF,AsFORA=0TO42 s rem 110 

700 READB(A)sNEXTsGOSUB770sGOS 
UB1190sFORA=0TO42 sGOSUB113 
0sNEXTsRETURN srem 199 

■»10 DATA -6,1,6,-1,-5,7,5,-7 

srem 64 


730 DATA 7,3,7,3,7,0,3,7,3,7,3 
,0,7,3,7,3,7 srem 241 

740 DATA 2,2,2,2,2,2,2,-1,-1,- 
1,-1,-1,2 srem 43 

750 DATA -1,-1,-1,-1,-1,2,-1,- 
1,0,1,1,2 srem 34 

760 DATA 1,1,1,1,1,2,1,1,1,1,1 
,2,2,2,2,2,2,2 srem 29 

770 IFPEEK(7169)=192THEN830 

srem 29 


780 PRINT"{CLR}{10 DOWN}"SPC(5 
)"{YEL}PLEASE WAIT" 

srem 234 

790 FOR A=7168 TO 7311sREAD Bs 
POKE A,BsNEXT srem 115 

800 FORA=0TO1023sPOKE6144+A,PE 
EK(A+32768)sNEXT srem 203 

830 POKE 36869,254 srem 161 

860 RETURN srem 126 

870 DATA255,192,192,192,192,19 
2,208,212 srem 196 

880 DATA255,0,0,8,8,10,42,5 

srem 86 

890 DATA255,3,3,3,3,3,131,3 

srem 82 

900 DATA255,192,192,193,192,19 
3,193,193 srem 203 

910 DATA255,0,0,80,84,85,153,8 

920 DATA255,3,3,3,3,3,3^3 

srem 234 

930 DATA213,197,197,192,193,22 
5,233,234 srem 197 

940 DATA69,84,20,84,81,80,80,8 
6 s rem 59 

950 DATA3,3,3,3,3,67,19,171 

srem 91 

960 DATA192,192,212,213,213,20 
8,192,192 srem 184 

970 DATA85,20,20,85,85,85,85,2 
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DATA3,23,87,87,71,3,3,67 

srem 160 

990 DATA232,224,193,192,192,19 
2,192,255 srem 200 

1000 DATA21,84,80,0,0,0,0,255 
srem 162 

1010 DATA3,3,3,3,3,3,3,255 

srem 17 

1020 DATA192,192,192,192,192,1 
92,192,255 srem 241 

1030 DATA21,5,5,5,1,0,0,255 

srem 65 

1040 DATA67,67,3,67,83,23,3,25 
5 s rem 44 

1130 IFB(A)=2THENRETURN 

srem 166 

1140 POKE781,Y(A)sPOKE782,X(A) 
SPOKE783,0 sSYS65520 

srem 110 

1150 IFB(A)=0THENPRINTBL?;sRET 
URN srem 90 

1160 IFB(A)>0THENPRINTG?; 

srem 251 

1170 IFB(A)<0THENPRINTW?; 

srem 10 

1175 QS=X(A)+Y(A)*22+38400 


1180 RETURN 


srem 170 


1190 GOSUB630 s R?=CHR?(13)sA?=" 
{2 SPACES}{3 RIGHT}C 
{3 RIGHT}C{3 RIGHT}C 
{3 RIGHT}C"+R?+R? srem 81 
1200 B?="{2 SPACES}{RIGHT}- 

{RIGHT}M{RIGHT}-{RIGHT}N 
{ RIGHT }B { RIGHT }M { RIGHT }B 
{RIGHT}N{RIGHT}B"+R?+R? 

s rem 39 

1220 C?="{2 SPACES}{RIGHT}B 

{ RIGHT}N{RIGHT}B{RIGHT}M 
{RIGHT}B{RIGHT}N{RIGHT}B 
{RIGHT}M{RIGHT}B"+R?+R? 

srem 244 

1240 PRINT"{CLR}{PUR}{4 DOWN}" 
A? B? A? C? A? B? A? C? LEFT ? (A? , 
18) srem 211 

1245 PRINT"{HOME}{GRN}{3 DOWN} 
";sG=lsFORA=0TO4 sIFA>0TH 
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ENPRINT"{3 DOWN}":PRINT" 
{SPACE}"; :rem 194 

1250 PORF=0TO4:PRINTCHR$(G+64) 
"{3 RIGHT}";:G=G+1 

:rem 101 

1260 NEXTF,A:RETURN :rem 213 



The Atari version of “The Witching 
Hour" uses player/missile graphics and 
is played with a joystick. 


Program 4: The Witching 
Hour, Atari Version 

Version by Kevin Mykytyn, Editorial 
Programmer 

For instructions on entering this listing, please 
refer to “COMPUTEi's Guide to Typing In 
Programs" published bimonthly in COMPUTE!. 


BN 0 A=PEEK ( 106)-16: T0P=A-16 
:CHBAS=T0P+12:DL=256*T0 
P:POKE 106,TOP:CH=CHBAS 
*256:POKE 756,CHBAS:SPR 
BAS=T0P+4 

EF 1 FOR A = 1536 TO 1567:READ 
B:POKE A,B:NEXT A 

FL 2 DATA 160,127,169,0,145, 
206 

1L 3 DATA 136,16,251,164,203 
, 162 

IN 4 DATA 10,169,248,145,206 
, 200 

LN 5 DATA 169,136,145,206,20 

0,202 

KB 6 DATA 16,248,169,248,145 
, 206 

IB 7 DATA 104,96 

HP 10 FL = 0: Z = 0: U=704: POKE 82 


IB 20 

ID 25 


,0:Pl=2:P2=23 
GRAPHICS 17:POSITION 
,5:PR INT #6; "THE WITCH 
ING HOUR":POSITION 7, 
0:PRINT #6;"press" 
POSITION 0,13:PRINT #6 


OC 30 NP = STICK (0)-12: IF NP< 1 
OR NP >2 THEN 30 
HD 60 IF NP = 2 THEN 110 
NF 70 POSITION 7, 17:PRINT #6 
;"PRESS":POSITION 2,19 
SPRINT #6;"LEFT TO GO 
FIRST" 

EE 75 PRINT #6;" RIGHT TO GO 
SECOND” 

KO 80 IF ST I CK ( 0 ) = 1 1 THEN FI 
=1:GOTO 110 

LB 90 IF ST I CK ( 0 ) =7 THEN Fl = 
— 1:GOTO 110 
DC 100 GOTO 80 


BO 110 GRAPHICS 0: POKE 752,1 
:IF RT=0 THEN POSITIO 
N 3,10:PRINT "PLEASE 
WAIT, THE SCREEN WILL 
BLANK" 

BN 111 FOR A= 1 TO 700:NEXT A 

NJ 1 12 GRAPHICS 0:SL = PEEK(8B 
):SH=PEEK(89):FOR 1=0 
TO 2:POKE DL+I,112:N 
EXT I:POKE DL+3,68:P0 
KE DL+4,SL:POKE DL+5, 
SH 

FB113 FOR I=DL + 6 TO DL+27:P 
OKE 1,4:NEXT I:POKE I 
,6:1=1+1:POKE I,65:PO 
KE 1+1,0:POKE 1+2,DL/ 
256 

KJ 114 POKE 560,0: POKE 561, D 
L/256:GOSUB 650:GOTO 
350 

DC 120 H = 0: K = 0: A = T: FOR A = 7 T 
0 35:GOSUB 160:NEXT A 

PB 130 GOSUB 270: IF H< 1 THEN 
340 

NN 140 H=0: K = 0: A = T: GOSUB 160 
:IF H<1 THEN 340 

6D 150 GOTO 130 

IN 160 IF B ( A ) =0 OR B ( A ) =-S 
OR B(A)=2 THEN RETURN 


ON 170 


NB 180 
NN 190 

NP 200 

BE 210 
NL 220 
DE 230 


OH 240 
E6 250 

DD 260 
JD 270 

HA 280 

KF 290 
JL 300 


OF 310 
NH 320 


FOR B=0 TO D(A-7):C=A 
+ M(B) : IF B(C)=S OR B < 
0=2 THEN 260 
IF B(C) THEN 220 
SC=RND(1)*0.9:IF H<SC 
THEN H=SC:F=A:T=C 
IF CK=1 AND T1=C THEN 
L=1:B=8 
GOTO 260 

IF B(C+M(B>) THEN 260 
SC=1+RND(1)*0.9:IF H< 
SC THEN H=SC:F=A:T=C+ 
M <B> :K = C 

IF CK=0 THEN 260 

IF T1=C+M(B) THEN L=1 

:K1=C:B=8 

NEXT B:RETURN 

A=F:B(T)=B(F>:B(F)=0: 

GOSUB 1130 

IF K THEN B(K)=0:A=K: 
GOSUB 1130 
A=T:GOTO 1130 
GOSUB 610:IF S=1 THEN 
POSITION P1,P2 s PR I NT 


GOTO 320 

PO SITION P1,P2 s P R I NT 

FOR TD=1 TO 1500:NEXT 
TD:POSITI ON P1,P2:PR 

i nt " BgMffiaaiHBj: 


JO 330 IF STRIG(0)< >0 THEN 3 
30 

EO 335 POKE 53248,0: RT= 1 : GOT 
0 10 

GO 340 S = —S: Z= <Z = 0) : H = 0: A = 7 
NE 345 IF A = 36 THEN 300 
IN 347 GOSUB 160: IF H = 0 THEN 
A=A+1:GOTO 345 
CG 350 D = 0: GOSUB 610: IF NP=1 
AND S=-l THEN Z=0 
DA 360 IF F 1 = - 1 THEN Z = 0 
NB 370 IF NP= 1 AND S = F1 THEN 
1 20 

AH 380 IF S=1 THEN POSITION 
P1 , P2 : PR I NT " EUESi 
CHJ- aETTTST I " ; : GOTO 400 
HH 390 POSITION P1,P2:PRINT 


JJ 400 Q = 3:R = 3:FL = 0: GOTO 480 
GC410 IF STR I G < Z ) =0 AND FL = 
0 THEN FL=1:GOSUB 490 
:A=X:ZZ=A:POKE U,198: 
POKE 77,0:GOTO 430 


IF 420 IF STRIG(Z) =0 AND FL = 
1 THEN GOSUB 490:T1=X 
:POKE U,40:GOTO 500 
LJ 430 ON ST I CK ( Z ) —5 GOTO 43 
0,440,430,430,430,450 
,430,460,470:GOTO 410 
BP 440 0= Q+1 * (0<5) : GOTO 480 
CA 450 Q=Q-1 * (Q>1 ) : GOTO 480 
CE 460 R = R+1 * (R<5) : GOTO 480 
BG 470 R = R—1* ( R > 1 ) 

AC 480 POKE 203, R*20-5: POKE 
53248,0*20+60:V=USR(1 
536):FOR TD=1 TO 30:N 
EXT T D:GOTO 410 
AA 490 X= (R-l > *6+ (0-1 ) +7: IF 
STICK ( Z ) < > 1 5 OR STRIG 
<Z)=0 THEN 490 
1C 495 RETURN 

CN 500 CK=1 : L = 0: K1=0: GOSUB 1 
60:CK=0 
DK501 H = 0 : A = 7 
NC 502 IF A = 36 THEN 510 
DB 503 GOSUB 160: IF H >= 1 THE 
N 510 

CK 504 A = A+ 1 : IF A<36 THEN 50 
3 

DB510 IF D THEN 540 
DP 520 IF L THEN 545 
LL 530 GOSUB 620: GOTO 350 
IK 540 IF L = 0 OR K = 0 THEN GO 
SUB 620:GOTO 600 
KE 545 IF K1 =0 AND H>=1 THEN 
530 

CK 550 F = ZZ : T = T1 : K = K1 : GOSUB 
270:IF K1=0 THEN 340 
FN 560 A = T: ZZ = A: H = 0: GOSUB 16 
0:IF H<1 THEN 340 
UK 600 D=1 : 0 = 3: R = 3: POKE U,20 
0:GOTO 480 

JD610 POSITION PI , P2: FOR A1 
=1 TO 18:PRINT " ";:N 

EXT Al:RETURN 

JF 620 SOUND 1,200, 12, 15:F0R 
TD=1 TO 70:NEXT TD:S 
OUND 1,0,0,0:RETURN 
HJ 630 RETURN 

FC 650 IF RT = 0 THEN DIM W*<3 
0),G*(30),BL*(30) 

AB 655 W*=" ! " : W« <2, 2) =CHR* (3 
4):W* <3,17>="ttCDOWN} 

1 3 LEFT }’ () C DOWN} 

13 LEFT}-./":G*="*X*c 
{DOWN! C3 LEFT> * + , 
CD0WNJC3 LEFT1012":BL 
*="596CD0WNJC3 LEFT! 
CV> CBXD0WNIC3 LEFT} 
8:7" 

BC 670 IF RT = 0 THEN DIM D (28 
),B(42),M(10),X(35),Y 
(35) 

BK 680 RESTORE 710:S = -1:FOR 
A=0 TO 7:READ T:M(A)= 
T:NE X T A:FOR A = 0 TO 2 
8:READ T:D(A)=T:NEXT 
A 

LE 690 FOR A = 0 TO 4: FOR F = 0 
TO 4:H=6*A+F+7:X<H)=5 
*F+9:Y(H)=5*A:NEXT F: 
NEXT A:FOR A=0 TO 42 
61 700 READ T: B ( A) =T: NEXT A: 

GOSUB 770:GOSUB 1190: 
FOR A=0 TO 42:GOSUB 1 
130:NEXT A:RETURN 
EA710 DATA -6 , 1,6 , - 1 ,-5,7,5 

AJ 720 DATA 7,3,7,3,7,0,3,7 , 
3,7,3,0 

PB 730 DATA 7,3, 7,3,7,0,3,7 , 
3,7,3,0,7,3,7,3,7 
CL 740 DATA 2,2,2,2 , 2,2,2 , - 1 
,-1,-1,-1,-1,2 
CC 750 DATA - 1 , - 1 , - 1 , - 1 , - 1,2 

BN 760 DATA l’l’l|l’l,2,l,l, 
1,1, 1,2,2,2,2,2,2,2 
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SO 770 

Nil 780 

KE 790 

N! 800 
BI 810 

OC 830 

NE 870 


CL 910 
OK 920 
NF 930 
DL 940 
FL 950 
LI 960 
DG 970 


BB 1010 
PB 1020 
EB 1030 
JE 1040 


AF 1042 

K6 1 130 


POKE 756,CHBAS:POKE 5 
4279,SPRBAS:IF RT=1 T 
HEN 830 

FOR A = 0 TO 1023:POKE 
CH+A,PEEK(57344+A):NE 
XT A 

RESTORE 870:FOR A = CH + 
8 TO CH + 215:READ B:PO 
KE A,B:NEXT A:FOR A=C 
H+472 TO CH+479:READ 
B:POKE A,B:NE X T A 
FOR A=CH TO CH+7:POKE 
A,0:NE X T A 

A=SPRBAS*256+512:POKE 
207,A/256:POKE 206,A 
-256*PEEK(207) 

POKE 559,46:POKE 623, 

1:POKE 704,40:POKE 53 
256,3: POKE 53277,3:F'0 
KE 708,15:POKE 709,40 
:RETURN 

DATA 255,192,192,192, 
192,192,208,212 
DATA 255,0,0,8,8,10,4 
2,5 

DATA 255,3,3,3,3,3,13 
1,3 

DATA 255,192,192,193, 
192,193,193,193 
DATA 255,0,0,80,84,85 
,153,85 

DATA 255,3,3,3,3,3,3, 
3 

DATA 213,197,197,192, 
193,225,233,234 
DATA 69,84,20,84,81,8 
0,80,86 

DATA 3,3,3,3,3,67,19, 
171 

DATA 192,192,212,213, 
213,208,192,192 
DATA 85,20,20,85,85,8 
5,85,21 

DATA 3,23,87,87,71,3, 
3,67 

DATA 232,224,193,192, 
192,192,192,255 
DATA 21,84,80,0,0,0, 
0,255 

DATA 3,3,3,3,3,3,3,2 
55 

DATA 192,192,192,192 
,192,192,192,255 
DATA 21,5,5,5,1,0,0, 
255 

DATA 67,67,3,67,83,2 
3,3,255,128,128,32,3 
2,8,8,2,2,2,2,8,8,32 
,32,128,128 


DATA 255,192 
,192,192,192 
, 3,3,3,3,3,3 
,3,3,3,3,255 
,192,192,192 
, 255 

DATA 255,0,0 

, 0 , 0 , 0 , 0 , 0,0 


,12,12,24,48,0,0,0,0 
IF B(A)=2 THEN RETUR 


DH 1140 POSITION X(A),Y(A) 

EA 1150 IF B(A)=0 THEN PRINT 
BL* ; 

PL 116 0 IF B (A) >0 THEN PRINT 
G*; 

AK 1170 IF B ( A ) < 0 THEN PRINT 
KK 1 180 RETURN 

80 1 190 IF RT = 0 THEN DIM R*< 

BF 1200 R*=CHR*<155):POSITIO 
N 0,1:GOSUB 1300:GOS 
UB 1310:GOSUB 1300:G 


OSUB 1320:GOSUB 1300 
:GOSUB 1310:GOSUB 13 
00 

ND 1210 GOSUB 1320: R*=" ": GOS 
UB 1300:RETURN 

GE 1300 PRINT " C9 SPACES} 

13 RIGHTIC2 R} 

{3 RIGHT}{2 R} 

<3 RIGHT}{2 R} 

<3 RIGHT}{2 R}";R*:R 
ETURN 

CL 1310 PRINT "{9 SPACES} 
{RIGHT}{=}{RIGHT}3 
{2 RIGHT}{=}{2 RIGHT} 
4{RIGHT}{=}{RIGHT}3 
{2 RIGHT}{ = }{2 RIGHT} 
4{RIGHT}{=}" ; R*;" 

{9 SPACES}{RIGHT} 

{ = }{2 RIGHT}3{RIGHT} 
{=}{RIGHT}4{2 RIGHT} 

{ — }{2 RIGHT}3{RIGHT} 
{=}{RIGHT}4{2 RIGHT} 
{=}";R*:RETURN 

CN 1320 PRINT "{9 SPACES} 

{RIGHT}{=}{2 RIGHTI4 
{RIGHT}{=}{RIGHT}3 
{2 RIGHT}{=}{2 RIGHT} 
4{RIGHT}{=}{RIGHT}3 
{2 RIGHT}{=}";R*;" 

{9 SPACES}{RIGHT} 

{=}{RIGHT}4{2 RIGHT} 
{=}{2 RIGHT}3{RIGHT} 
{=}{RIGHT}4{2 RIGHT} 
{=}{2 RIGHT}3{RIGHT} 
{=}";R*:RETURN 


Program 5: The Witching 
Hour, Apple II Version 

Version by Kevin Martin, Editorial 
Programmer 


For instructions on entering this listing, please 
refer to "COMPUTEi's Guide to Typing In 
Programs" published bimonthly in COMPUTE! 


91 10 Z - li HOME : TEXT 

BE 11 POKE 232,96: POKE 233,3: S 
CALE- 27: ROT- 0: HCOLOR- 
3 

EA 20 VTAB 8: HTAB 11: PRINT “TH 
E WITCHING HOUR" 

17 30 VTAB 12: HTAB 6: PRINT "PR 
ESS '1' FOR ONE PLAYER" 

92 40 HTAB 12: PRINT "'2' FOR TW 

0 PLAYERS" 

D1 50 GET A*:NP = ASC (A*) - 48: 
IF NP < 1 OR NP > 2 THEN 
50 

B4 60 IF NP = 2 THEN 110 
EB 70 HTAB 5: PRINT "DO YOU WANT 
TO GO FIRST <Y/N> ?"; 

2D 80 GET A*:FI - 1: IF A* < > " 
Y" AND A* < > "N" THEN 80 
38 90 IF A* = "N" THEN FI = - 1 

96 110 HOME : HGR : GOSUB 650: G 

OTO 350 

D2 120 H - 0:K = 0: FOR A = 7 TO 
35: GOSUB 160: NEXT 
BE 130 GOSUB 270: IF H < 1 THEN 
340 

ES 140 H = 0:K = 0:A = T: GOSUB 
160: IF H < 1 THEN 340 

97 150 GOTO 130 

li 160 IF B(A) = 0 OR B(A) = - S 
OR B(A) - 2 THEN RETURN 
E3 170 FOR B = 0 TO D(A - 7>:C - 
A + M(B): IF B(C) - S OR 
B(C) - 2 THEN 260 
FI 180 IF B(C) THEN 220 
1C 190 SC - RND (0) * .9: IF H < 


SC THEN H - SCiF - AlT - 
C 

Ai 200 IF CK = 1 AND T1 - C THEN 
L - liB - 7 
14 210 GOTO 260 

32 220 IF B (C + M (B) ) THEN 260 

BF 230 SC = 1 + RND (0) * .9: IF 
H < SC THEN H - SC:F - A 
:T - C + M(B):K - C 
DB 240 IF CK - 0 THEN 260 
EF 250 IF T1 ■ C + M(B) THEN L = 
llKl - C:B - 7 
CA 260 NEXT : RETURN 
1A 270 A - F:B(T) - B(F):B(F) - 
0: GOSUB 1130 

39 280 IF K THEN B (K) - 0:A - K: 
GOSUB 1130 

14 290 A - T: GOTO 1130 
SC 300 GOSUB 610: IF S - 1 THEN 
VTAB 21: HTAB 12: PRINT ” 
THE WITCHES WIN!": GOTO 3 
20 

IA 310 VTAB 21: HTAB 12: PRINT “ 
THE GHOSTS WIN!" 

5E 320 HTAB 10: PRINT "PRESS THE 
< SPACEBAR >" 

74 330 GET A*: IF A* < > " " THE 
N 330 
AF 331 RUN 

D7 340 S = - SiZ - - (Z — 0) : H = 

0: FOR A - 7 TO 35: GOSU 

B 160: NEXT : IF H - 0 TH 
EN 300 

44 350 D - 0: GOSUB 610: IF NP - 
1 AND S - - 1 THEN Z - 1 
EA 360 IF FI = - 1 THEN Z = 1 

33 370 IF NP - 1 AND S - FI THEN 

120 

4F 380 IF S = 1 THEN VTAB 21: HT 
AB 12: PRINT "THE GHOST'S 
TURN": GOTO 400 

44 390 VTAB 21: HTAB 12: PRINT " 
THE WITCH'S TURN" 

El 400 VTAB 22: HTAB 12: PRINT " 
FROM: "| CHR* (8)| 

DA 410 GOSUB 1250 
B7 420 PRINT A*;:A - N< ASC (A*) 
- 65):Z - A 

DC 430 HTAB 25: PRINT "TO: CH 

R* (8) | 

El 440 GOSUB 1250 
E9 450 PRINT A*j:Tl = N( ASC (A* 
) - 65)iCK - liL - 0:K1 - 
0: GOSUB 160:CK - 0 
DB 451 H - 0:A - 7 
42 452 IF A - 36 THEN 460 

44 453 GOSUB 160: IF H > - 1 THE 

N 460 

BI 454 A-A+l: IF A < 36 THEN 
453 

BC 460 IF D THEN 540 
If 470 IF L THEN 545 
94 530 GOSUB 620: GOTO 350 
7D 540 IF L = 0 OR K1 = 0 THEN G 
OSUB 620: GOTO 570 
A9 545 IF K1 = 0 AND H > - 1 THE 
N 530 

45 550 F - Z:T = T1:K - Kl: GOSU 

B 270: IF Kl - 0 THEN 340 
97 560 A = T:Z = A:H - 0: GOSUB 
160: IF H < 1 THEN 340 
18 570 GOSUB 610: VTAB 21: HTAB 
11: PRINT "JUMP AGAIN <Y/ 
N) ?" | 

42 580 GET A*: IF A* < > "Y" AND 
A* < > "N" THEN 580 
31 590 GOSUB 610: IF A* = "N" TH 
EN 8 - - S: GOTO 350 
72 600 D = 1: VTAB 22: GOTO 430 
4F 610 PRINT : VTAB 21: FOR J - 
1 TO 2: FOR I - 1 TO 40: 
PRINT " NEXT I.J 

1C 611 RETURN 

13 620 PRINT CHR* (7);: RETURN 

14 630 HOME : RETURN 
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',0,3,7,3,7, 


2 , 2 , 2 , 2 ,- 1 , 


0,44,62,0 


: READ 


E7 650 DIM D(28) , B (42) , X (35) , Y(3 
5),N(28) 

BE 660 S = - l! FOR A = 0 TO 7: 

READ M(A)i NEXT : FOR A » 
0 TO 28s READ D<A>! NEXT 
53 670 FOR A = 0 TO 4: FOR F = 0 
TO 4:H * 6 • A + F + 7lX 
(H) - 4 * F + 11! Y (H) = 4 
( AiN(G) - H:B - B + ll 
NEXT F,A 

58 680 FOR A * 0 TO 42: READ B <A 
)i NEXT ! FOR A - 0 TO 6i 
READ Fi POKE 864 + A,F: 
NEXT * BOSUB 760! BOSUB 1 
190: FOR A ■ 0 TO 42: BOS 
UB 1130: NEXT : RETURN 
C8 690 DATA -6,1,6,-1,-5,7,5,-7 
44 700 DATA 7,3, 7,3,7,0, 3, 7,3,7, 
3,0 

IS 710 DATA 7,3,7,3,7 
3,0,7,3,7,3,7 
89 720 DATA 2,2,2,“ 

-1,-1,-1,2 

44 730 DATA -1,-1,-1,-1 

-1,0, 1, 1,2 

BE 740 DATA 1,1, 1,1, 1,2 
1,2,2,2,2,2,2,2 

38 750 DATA 1,0,4, 

82 760 FOR A » 768 TO 855: 

F: POKE A,F: NEXT 
7F 770 POKE 6,0: POKE 7,141: IF 
PEEK (191 * 256) - 76 THE 
N PRINT CHR* (4);"PR#A*30 
0": BOTO 790 

C8 780 POKE 54,0: POKE 55,3: CAL 
L 1002 

E3 790 FOR A = 36352 TO 36567: R 
EAD F: POKE A,F: NEXT 
18 800 RETURN 

2C 1130 IF B (A) =2 THEN RETURN 
22 1140 VTAB Y(A) + 1: HTAB X(A) 

45 1150 IF B (A) < 0 THEN PRINT " 

SAB": HTAB X(A): PRINT " 
FBH“: HTAB X(A): PRINT " 
LMN" 

31 1160 IF B (A) >0 THEN PRINT " 
CDE": HTAB X(A): PRINT " 
IJK“: HTAB X(A): PRINT " 
OPQ" 

SB 1170 IF B(A) =0 THEN PRINT " 
RST": HTAB X(A): PRINT " 
UVW": HTAB X(A): PRINT " 
XYZ" 

F3 1180 RETURN 
ES 1190 HCOLOR- 3 
71 1200 FOR A - 11 TO 139 STEP 3 
2: HPLOT 78,A TO 190,A: 
NEXT 

4S 1210 FOR A - 78 TO 190 STEP 2 
8: HPLOT A,11 TO A,139: 
NEXT 

F8 1220 HPLOT 78,11 TO 194,140: 
HPLOT 194,11 TO 78,140 

39 1230 HPLOT 78,76 TO 136,11 TO 

194,76 TO 136,140 TO 78 
,76 

2E 1249 RETURN 

D2 1250 F - 2:T1 - 2:QS - 2 
2B 1260 SCALE- QS 

83 1270 XDRAW 1 AT <T1 * 4 + 10) 

* 7 - 3, (F * 4) *8 + 25 

3E 1275 PRINT CHR* (F * 5 + T1 + 
63); CHR* (8); 

49 1280 A* - IF PEEK ( - 163 

84) > 128 THEN BET A* 

SF 1285 XDRAW 1 AT <T1 * 4 + 10) 

* 7 - 3, (F * 4) *8 + 25 

F8 1287 QS - QS + 5: IF QS > 27 
THEN QS - 2 

EE 1290 IF A* - "I" AND F > 0 TH 
EN F - F - 1 

•1 1291 IF A* = "K" AND F < 4 TH 
EN F - F + 1 


BB 1292 IF A* = H J" AND T1 > 0 
HEN T1 - T1 - 1 

B7 1293 IF A* = "L" AND T1 < 4 T 
HEN T1 - T1 + 1 

82 1300 IF A* < > CHR* (13) THEN 
1260 

41 1400 A* = CHR* (F * 5 + T1 + 
65): RETURN 

D4 1500 DATA 216,120,133,69,134, 


2E 1510 DATA 132 


41 1540 DATA 27,24,101,6 


81 1570 DATA 5,230,133,9 
3E 1580 DATA 160, 

89 1590 DATA 48,2,73 
47 1600 DATA 145, 

9F 1610 DATA 230, 

IF 1620 DATA 4,133,9 
87 1630 DATA 165, “ 

72 1640 DATA 88,76,240,253 
71 1700 DATA 255, 


FI 1710 
CB 1720 
4F 1730 
9F 1740 
41 1750 
8C 1760 
C9 1770 
8D 1780 
SI 1790 
91 1800 
48 1810 
Bl 1820 
B9 1830 
Cl 1840 
1C 1850 
55 1860 
72 1 


13 1910 
17 1920 
47 1930 


DATA 139 
192 

DATA 192 
192 
DATA 192 
199 
DATA 255 
225 
DATA 225 
135 

DATA 159 
192 

DATA 192 

192 

DATA 171 
129 

DATA 193 
165 

DATA 168 

193 
DATA 193 
204 
DATA 129 
199 
DATA 193 
255 
DATA 255 
248 
DATA 
192 
DATA 223 
129 
DATA 129 
168 

DATA 170 
240 
DATA 255 
255 

DATA 129 
129 


DATA 129 
248 

DATA 248 
193 

DATA 193 
255 

3? 1940 DATA 127 
44 1950 DATA 
D2 1960 DATA 0, 

25 1970 DATA 64,64 
84 1980 DATA 
53 1990 DATA 
21 2000 DATA 0, 

FB 2010 DATA 64,64 
7B 2020 DATA 1 
3B 2030 DATA 1 
FF 2040 DATA 0, 

F4 2050 DATA 64,64 


71,166,7, 10. 


127 


0,0 

64, 

64,64 


0 , 0,0 
127,64,64 
64,64,64, 13 


170 

216 

192 

129 

252 



A ghost is about to be jumped in this 
game of “The Witching Hour" for Apple 
II computers. 



"The Witching Hour" for the TI-99/4A 
works with console BASIC as well as T1 
Extended BASIC. 


Program 6: The Witching 
Hour, TI-99/4A Version 

Version by Patrick Parrish, 
Programming Supervisor 


100 BOTO 150 

110 FOR 1-1 TO LEN(H*) 

120 CALL HCHAR(R,C+I,ASC( 
SEB*(H*,1,1))) 

130 NEXT I 
140 RETURN 

150 DIM B(42) ,D(28) ,N(2B > 
,X(35),Y(35) 

160 BOSUB 1650 
170 BOTO 930 
180 H-0 
190 K-0 

200 FOR A-7 TO 35 

210 BOSUB 310 

220 NEXT A 

230 BOSUB 600 

240 IF H<1 THEN 860 

250 H-0 

260 K-0 

270 A-T 

280 BOSUB 310 

290 IF H<1 THEN 860 

300 BOTO 230 

310 IF (B(A><>0>*(B(A><>- 
8>*(B(AX>2)THEN 330 
320 RETURN 

330 FOR B5-0 TO D(A-7> 

340 C—A+M(B5 > 

350 IF (B(C)-S)+(B(C)-2)T 
HEN 580 
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360 IF B(C)THEN 4S0 

370 BC-RND*.9 

380 IF H>-SC THEN 420 

390 H-BC 

400 F-A 

410 T-C 

420 IF (CK<>1)+(T1<>C)THE 

N 580 
430 LL-1 
440 BOTO 570 

450 IF B(C+M(B5>>THEN 580 

460 BC-1+ RND*.9 

470 IF H>-8C THEN 520 

480 H-SC 

490 F-A 

500 T—C+M(B5) 

510 K-C 

520 IF CK-0 THEN 580 
530 K—0 

540 IF Tl< >C+M <B5)THEN 58 
0 

550 LL-1 
560 K1-C 
570 B5-7 
580 NEXT B5 
590 RETURN 
600 A-F 
610 B(T)-B(F) 

620 B(F >-0 
630 808UB 2790 
640 IF K-0 THEN 680 
650 B(K)-0 
660 A-K 

670 608UB 2790 

6B0 A-T 

690 BOTO 2790 

700 808UB 1630 

710 IF BOl THEN 740 

720 H*“"THE WITCHES WIN!" 

730 BOTO 750 

740 H*““THE BH08TS WIN!" 

750 R—23 

760 C-9 

770 B08UB 110 

780 R-24 

790 C-5 

800 H*-"HIT A KEY TO PLAY 
ABAIN" 

810 80BUB 110 

820 CALL KEY(0,KK,SS) 

830 IF 88-0 THEN 820 

840 B08UB 2190 

850 SOTO 930 

B60 8—8 

870 H-0 

BB0 A—7 

890 IF A—36 THEN 700 
900 80SUB 310 
910 A-A+1 

920 IF H-0 THEN 890 

930 DD-0 

940 808UB 1630 

950 IF SOI THEN 980 

960 H*»"BHOBT’8 TURN" 

970 80T0 990 

9B0 H*—"WITCH'S TURN" 

990 R-22 
1000 C-10 
1010 BOBUB 110 
1020 R-23 
1030 C-9 
1040 H*-"FROMi" 

1050 BOBUB 110 
1060 RANDOMIZE 
1070 CALL KEY(0 ,KK,88) 
1080 IF 88-0 THEN 1060 
1090 IF KK< >13 THEN 1120 
1100 BOBUB 1630 
1110 60T0 180 
1120 IF (KK<65) + (KK>89> TH 
EN 1060 

1130 H0-CHR*(KK) 


1140 C-15 
1150 BOSUB 110 
1160 A-N(KK-65) 

1170 Z-A 
1180 H*-"T0i" 

1190 IF DD< >1 THEN 1210 
1200 CALL HCHAR(23,10,32, 
7) 

1210 R-23 

1220 C-17 

1230 BOSUB 110 

1240 CALL KEY(0,KK,SS) 

1250 IF SB-0 THEN 1240 

1260 H*-CHR*(KK> 

1270 C-21 

1280 BOSUB 110 

1290 T1—N(KK—65) 

1300 CK-1 
1310 LL-0 
1320 K1-0 
1330 BOSUB 310 
1340 CK-0 
1350 H-0 
1360 A-7 

1370 IF A-36 THEN 1420 
1380 80SUB 310 
1390 IF H>—1 THEN 1420 
1400 A—A+1 

1410 IF A< 36 THEN 1380 
1420 IF DD THEN 1460 
1430 IF LL THEN 1490 
1440 CALL SOUND(S0,220,5) 
1450 BOTO 930 
1460 IF <LL<>0)*<K1<>0)TH 
EN 1490 

1470 CALL SOUND(50,220,5) 
1480 BOTO 1600 
1490 IF (Kl-0)*(H>-1)THEN 
1440 

1500 F-Z 

1510 K-K1 

1520 T-Tl 

1530 BOSUB 600 

1540 IF Kl-0 THEN 860 

1550 A-T 

1560 Z-A 

1570 H-0 

1580 BOSUB 310 

1590 IF H<1 THEN 860 

1600 DD—1 

1610 CALL HCHAR(23,22,32> 
1620 BOTO 1180 
1630 CALL HCHAR(22,1,32,9 
6 ) 

1640 RETURN 

1650 FOR 1-96 TO 104 

1660 READ A* 

1670 CALL CHARII.At) 

16B0 NEXT I 

1690 DATA 00000000000000F 
F,0101010101010101,F 
F80808080S0B080 
1700 DATA FF0101010101010 
1,B080B0B0B080B080,8 
040201008040201 
1710 DATA 0102040B1020408 
0,01010101010101FF,F 
F00000000000000 
1720 FOR 1-112 TO 115 
1730 READ A* 

1740 CALL CHAR(I,A* > 

1750 NEXT I 

1760 DATA 0000A0FCFE7E3F1 
E,000B080C1C3E1CBB,1 
C090101E1FFE302.F0ES 
C8C4E2FFE000 
1770 FOR 1-120 TO 123 
1780 READ A* 

1790 CALL CHARII.At) 

1800 NEXT I 

1810 DATA 00011131131F030 
7,40F050F4F6F4FCE0,0 


70F0F1F3F3F1C08,E0C0 
800000000000 
1820 CALL CLEAR 
1830 CALL COLOR(11,4,1> 
1840 CALL C0L0R(12,15,1) 
1850 FOR 1-1 TO 8 
1860 CALL COLOR(I,16,1) 
1870 NEXT I 
1880 CALL SCREEN(2) 

1890 PRINT TAB(6) |"THE HI 
TCHINB HOUR"i■I. 

1900 CALL HCHAR(14,8,112) 
1910 CALL HCHAR(14,9,113) 
1920 CALL HCHAR(15,8,114) 
1930 CALL HCHAR(15,9,115) 
1940 CALL HCHAR(14,23,120) 
1950 CALL HCHAR(14,24,121) 
1960 CALL HCHAR(15,23,122) 
1970 CALL HCHAR(15,24,123) 
1980 FOR A—0 TO 7 
1990 READ MIA) 

2000 NEXT A 

2010 FOR A—0 TO 2B 

2020 READ DIA) 

2030 NEXT A 
2040 FOR A—0 TO 4 
2050 FOR F-0 TO 4 
2060 H-6*A+F+7 
2070 X(H)—4*F+B 
2080 Y(H)—44A+2 
2090 NI8)—H 
2100 8-8+1 
2110 NEXT F 
2120 NEXT A 

2130 DATA -6,1,6,-1,-5,7, 
3,-7 

2140 DATA 7,3,7,3,7,0,3,7 
,3,7,3,0 

2150 DATA 7,3,7,3,7,0,3,7 
,3,7,3,0,7,3,7,3,7 
2160 DATA 2,2,2,2,2,2,2,- 
1 ,- 1 ,- 1 ,- 1 ,- 1,2 
2170 DATA -1,-1,-1,-1,-1, 
2,-1,-1,0,1,1,2 
2180 DATA 1,1,1,1,1,2, 1,1 
,1, 1, 1,2,2,2,2,2,2,2 
2190 CALL COLOR(11,1,1) 
2200 8—1 

2210 CALL COLOR!12,1,1) 
2220 CALL COLOR(9,1,1) 

2230 CALL COLOR(10,1,1) 
2240 CALL CLEAR 

2250 H«-"_SETTING UP GA 

ME BOARD- 
2260 R-23 
2270 C-3 
2280 80SUB 110 
2290 FOR ROW-5 TO 17 STEP 
4 

2300 FOR COL-B TO 24 STEP 
4 

2310 CALL HCHAR(ROW,COL,1 
03) 

2320 NEXT COL 
2330 NEXT ROW 
2340 FOR ROW-2 TO IB STEP 
4 

2350 FOR COL-7 TO 23 STEP 
4 

2360 CALL HCHAR(ROW,COL+3 
, 100 ) 

2370 CALL HCHAR(ROW+1,COL 
+4,99) 

2380 CALL HCHAR(ROW,COL,9 
7) 

2390 CALL HCHAR(ROW-1, COL 
+2,96) 

2400 CALL HCHAR(ROW+1,COL 
+3,98) 

2410 CALL HCHAR(ROW+2,COL 
+1,99) 
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2420 CALL HCHAR(R0W+2,C0L 
+2,104) 

2430 NEXT COL 

2440 NEXT ROW 

2430 FOR ROW-3 TO 19 STEP 
4 

2460 CALL HCHAR(ROW,7,97) 

2470 CALL HCHAR(ROW,26,10 
0 ) 

2480 CALL HCHAR(ROW,27,32 

2490 NEXT ROW 

2300 FOR COL-8 TO 24 STEP 
4 

2310 CALL HCHAR(1,C0L,96, 
2 ) 

2320 CALL HCHAR(20,COL,10 
4) 

2330 NEXT COL 

2540 FOR ROW-4 TO 12 STEP 
8 

2330 FOR COL-10 TO 18 STE 
P 8 

2360 CALL HCHAR(ROW,COL, 1 
01 ) 

2370 CALL HCHAR(ROW,COL+3 
, 102 ) 


2580 CALL HCHAR(ROW+1,COL 
+4,102) 

2390 CALL HCHAR(ROW+4,COL 

+ 1 , 102 ) 

2600 CALL HCHAR(ROW+3,COL 
, 102 ) 

2610 CALL HCHAR(ROW+4,COL 
+4,101) 

2620 NEXT COL 
2630 NEXT RON 
2640 RESTORE 2160 
2650 CALL HCHAR(23,3,32,2 
3) 

2660 0-0 

2670 FOR A-0 TO 42 
2680 READ B(A> 

2690 GOSUB 2790 
2700 IF B(A)-2 THEN 2730 
2710 CALL HCHAR(Y(A)-1,X( 
A)-1,Q + 63 > 

2720 Q-Q+l 
2730 NEXT A 

2740 CALL C0L0R(9,14,1) 
2730 CALL COLOR(10,14,1) 
2760 CALL COLOR(11,4,1) 
2770 CALL C0L0R(12,13,1) 
2780 RETURN 


2790 IF B(A> < >2 THEN 2810 
2800 RETURN 

2810 IF B(A)< >0 THEN 2830 
2820 CALL HCHAR(Y(A),X(A) 
,32,2) 

2830 CALL HCHAR(Y(A)+1,X( 
A),32,2) 

2840 GOTO 2930 

2850 IF B(A)>0 THEN 2910 

2860 CALL HCHAR(Y(A),X(A) 

, 112 ) 

2870 CALL HCHAR(Y(A),X(A) 
+1,113) 

2880 CALL HCHAR(Y(A)+1,X( 
A),114) 

2890 CALL HCHAR(Y(A>+1,X( 
A)+1,113) 

2900 GOTO 2930 

2910 CALL HCHAR(Y(A),X(A) 

, 120 ) 

2920 CALL HCHAR(Y(A),X(A> 

+ 1 , 121 ) 

2930 CALL HCHAR(Y(A)+1,X( 
A),122) 

2940 CALL HCHAR(Y(A)+1,X< 

A > +1,123) ^ 

2930 RETURN © 


HELP 
YOUI 



I V L H#' 

FIAK 





GRADE 


Now there’s a way parents 
can help their children climb 
to the heights of success. 

It begins with an Apple,® 

IBM,® Commodore™ or Atari® 
computer. It takes off with CBS 
Software. 

Our Success with Math™ series has 
met with sales success second to none in its 
field. Along with our new Success with 
Algebra ™ series, your home computer will become 
a patient, private tutor—using serious drill and 
practice to help your children over the obstacles in 
their way. 

Mastering the SAT has 
also become a best seller. 

With its counterpart, 

Mastering the ACT, it’s the 
comprehensive test prepara¬ 
tion program that’s proven I 
to be the first choice for | 
thousands of students who 
want acceptance from their 
first choice college. They are the only programs of 
their kind created with the National Association of 
Secondary School Principals. And they’re designed 
to provide the competitive edge that can help put your 

^ kids over the top. 

SOFTWARE 

..j,,, Making you the best. 



BM, Apple and Atari are registered trademarks ol International But 
and Atari Corp., respectively. Commodore is a trademar. 
1985 CBS Inc. All rights reserved. CBS Software, A Unit of CBS Edt 
CBS Inc. One Fawcett Place, Greer '" "| 


IF YOU'RE INTERESTED IN GIVING YOUR CHILDREN THE BEST, CALL 1-800-CBS-ASK4 FOR THE DEALER NEAREST YOU. 









LASER BEAM 

For Atari And Commodore 64 

Mike Greenfield 


This fast-paced arcade game is writ¬ 
ten entirely in machine language and 
challenges the quickest reflexes. Orig¬ 
inally written for the Atari, the pro¬ 
gram has been adapted and enhanced 
for the Commodore 64. The Atari ver¬ 
sion runs on any 400, 800, XL, or XE 
with at least 16K RAM. Both versions 
require a joystick. 


The Atari version of “Laser Beam" 
is a fast-action arcade-style game 
with a simple premise—you score 
by moving. The more you move, 
the more you score. You start off in 
an arena along with a bouncing 
ball. If you happen to run into the 
ball or the arena walls, the game 
ends. 

But watch out! If you haven't 
collided with anything after half a 
minute or so, you advance to level 2 
and a second bouncing ball appears. 
If you last a while longer, you reach 
level 3 and a third ball appears, and 
so on. Up to five balls can be bounc¬ 


ing around the arena simultaneous¬ 
ly. Your score for each move 
depends on which level you're on. 
When there's one ball on the 
screen, you score one point per 
move; when there's five balls, you 
score five points. 

In early stages of the game, 
you may not feel motivated to 
move unless you absolutely have 
to. So there's one additional chal¬ 
lenge—the laser beams. Each side 
of the arena is guarded by a roving 
laser. You'll see a red indicator 
when the laser beam fire sequence 
has been activated, but the indica¬ 
tor tells you only where the beam 
will fire, not when. As the game 
progresses, it becomes more diffi¬ 
cult to dodge the laser because the 
countdown before firing decreases. 

Before starting the game, you 
can select one of ten difficulty op¬ 
tions. The program automatically 
selects option 5. To change this, 
press the OPTION button. Option 9 
is the slowest, and therefore the 


easiest; option 0 is the fastest. 

To freeze the action, press the 
SELECT button. To continue, press 
SELECT and START together. 
After each round, press the START 
button to start another game. To 
return to the title screen, press 
START, SELECT, and OPTION 
simultaneously. 

Entering The Atari Version 

Programs 1 and 2 work together to 
load Laser Beam from BASIC. To fit 
the game into 16K of RAM, a single 
BASIC program can't hold all the 
DATA statements necessary for the 
machine language and also POKE 
them into memory. 

Therefore, the DATA state¬ 
ments in Program 1 create a ma¬ 
chine language file on disk or tape 
called LASERBEM.OBJ. (If LASER- 
BEM.OBJ already exists on a disk. 
Program 1 recognizes this and 
won't create a new file.) After Pro¬ 
gram 1 runs, it automatically loads 
and runs Program 2, assuming you 
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Four bouncing balls fly wildly about the 
screen as the player runs for his life in 
the Atari version of "Laser Beam." 


have saved Program 2 with the file¬ 
name shown in line 220. Program 2 
reads the file LASERBEM.OBJ, 
POKEs the machine language into 
memory, and then jumps to the 
starting address to automatically 
run the game. 

Tape users need to make a few 
modifications to the programs. In 
Program 1, delete lines 10-90, re¬ 
place the statements in line 220 
with END, and change D: to C: in 
line 100. In Program 2, change D: to 
C: in line 100. 

After these changes. Program 1 
creates a file on tape which Pro¬ 
gram 2 can load. That means the 
file created by Program 1 should 
immediately follow Program 2 on 
the tape. As Program 2 reads this 
file, it is normal for the cassette 
recorder to stop and start and it 
reads each block. 

Commodore 64 Version 

Laser Beam on the Commodore 64 
is considerably different from the 
original Atari version. The object is 
not just to avoid the bouncing balls, 
but also to grab them at certain 
times and stuff them into a basket. 

Written entirely in machine 
language. Program 3 must be en¬ 
tered with computers "MLX" utili¬ 
ty found elsewhere in this issue. 
Here is the information you'll need: 
Starting address: 49152 
Ending address: 52699 

After you've saved Laser Beam 
on disk or tape according to the 
MLX instructions, plug a joystick 
into port 2 and type LOAD"LASER 
BEAM'',8,1 for disk or LOAD- 
"LASER BEAM",1,1 for tape (as¬ 
suming you saved the program 
with the filename LASER BEAM, of 


course). Then type SYS 49152 and 
press RETURN. 

The Highlight Zone 

Move the joystick up or down to 
select the difficulty level from 0 to 
9. Unlike the Atari version, 0 is the 
slowest and 9 is the fastest (in fact, 
9 is so fast that it's almost unplay¬ 
able!). The game starts when you 
press the fire button. 

Immediately you'll see seven 
colored balls bouncing around the 
screen. At the left is a highlighted 
"safe zone" occupied by a small 
stick figure—that's you. By moving 
the joystick, you can maneuver 
your figure around the screen. But if 
you venture out of the safe zone 
and bump into a bouncing ball, 
you're zapped. (You get three lives 
per game, as indicated by the fig¬ 
ures at the bottom of the screen.) 

Your goal is to render the balls 
harmless, grab them one by one, 
and drop them into the basket in 
the lower-right corner. To make a 
ball safe to touch, you have to shoot 
it with the laser gun. The laser is 
visible along the edge of the screen. 
To control it, first you must move 
your figure into the uppermost cor¬ 
ner of the safe zone. The laser gun is 
under your control only when your 
figure is at this spot. Pushing the 
joystick to the right moves the laser 
clockwise around the edge of the 
screen, and pushing the joystick to 
the left moves the laser counter¬ 
clockwise around the screen. Press 
the fire button to activate the beam. 
If you push the joystick in any other 
direction, you'll move your figure 
away from the top of the safe zone, 
and the laser gun will no longer be 
under your control. 

Now, you can't shoot just any 
bouncing ball with the laser to 
make it safe to grab. You have to 
shoot the ball which matches the 
border color of the screen. As soon 
as you hit the ball, it turns white. 
Then you can maneuver your figure 
out of the safe zone, grab the white 
ball by touching it, carry it to the 
basket, and drop it in by pressing 
the fire button. Afterward you must 
scurry back to the safe zone before 
a collision with another ball. 

For example, let's say the bor¬ 
der color is red. First you move your 
figure to the top of the safe zone to 
take control of the laser gun. Next 
you push the joystick right or left to 



In this Commodore 64 version of "Laser 
Beam," the player has rendered a 
bouncing ball harmless by shooting it 
with the laser. Now he's carrying it to 
the basket. 


aim the laser at the red ball. When 
you have a clear shot, press the fire 
button to shoot the beam. If you 
score a hit, the red ball turns white. 
Then you can push the joystick in 
another direction to move your fig¬ 
ure out of the safe zone. Grab the 
ball, stuff it into the basket by 
pressing the fire button, and make 
your escape—all while avoiding 
the other bouncing balls, of course. 
If you succeed, the border color 
changes to correspond to one of the 
remaining balls. 

You continue with the process 
until all the balls are safely dropped 
into the basket. Then another 
round begins. 

Bouncing Chaos 

Sounds simple, right? Well, it's not. 
There are a few complications. Sup¬ 
pose you fire the laser and hit a 
bouncing ball that doesn’t match the 
border color. It turns white, too. But 
it isn't safe to grab. If you touch it, 
you're zapped. This becomes a real 
problem when you accidentally 
shoot several of the balls and turn 
them white. Only one of them is 
safe, and you have to remember 
which one. It's not easy when three 
or more white balls are bopping all 
over the place. 

There is an incentive for creat¬ 
ing this chaos, however. The num¬ 
ber of points you get for dropping a 
ball in the basket doubles for each 
white ball on the screen. If the only 
white ball is the one you're grab¬ 
bing, you get only 5 points. If a 
second ball is white, you get 10 
points; if a third ball is white, you 
get 20 points; and so on. If all seven 
balls are white when you drop the 
first one into the basket, you score 
320 points. 
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Veri/lex 

Free plastic 
library case. 
Lifetime warranty. 


Price Each 
50+ 100 + 500 + 


From the inventors of the 3 Vi” 
Micro Disk .. . 


SONY 

Ten-pack, boxed 
diskettes. 



Price Each 


30+ 50+ 100 + 


3Vi” Single Sided/ 
Double Density 


2.28 2.25 2.19 


3Vi” Double Sided/ 
Double Density 


3.45 3.39 3.35 


APPLE IMAGEWRITER RIBBONS 


DISK FILES 

The deluxe files for3Vi” or 5V4” floppies. 
Buff plastic body with natural oak roll-top. 
Each comes with dividers and color coded 
labels. 


for3Vi" for 5Vi” 

holds 55 $17.49 holds 140 $24.99 

Other colors and locking models available. 


TOLL-FREE 1-800-USA-FLEX 

IN ILLINOIS 1-312-351-9700 

Pease mention this ad when calling in your order. Master- 
Card, Visa, C.0.D, or Net 30 days with approved credit on 
purchases over $200.00. Shipping/Handling additional. 
Prices subject to change without notice. 



COMARK, INC. 135 N. Brandon 
Glendale Heights, Illinois 60139 




STARPOIIMT SOFTWARE proudly presents 



H+n+n+n+n+n+ENB 


DB CHIP GRACEY 

[say Icepick], a revolutionary new concept in 
software back up for the Commodore 64. 
ISEPIC is not a disk duplication system, but an 
extraordinary hardware/software combina¬ 
tion that actually bypasses any disk protection 
scheme. ISEPIC captures and saves the pro¬ 
tected program as it runs in the 64’s 
memory, this “snapshot” becomes accessi¬ 
ble to the user for complete inspection and 
alteration. From this image, ISEPIC can 
automatically create a compact, auto-booting, 
fast-loading file which is completely un¬ 
protected and self contained. 

☆ Backs up almost ALL memory-resident 
software 

☆ ISEPIC’d programs load many times 
faster than originals 

☆ ISEPIC is invisible to software—cannot 
be defeated 

☆ Eliminates drive “knock” due to antique 
protection schemes 

☆ Automatically backs up protected pro¬ 
grams into single, auto-booting, super- 
fast loading files 

☆ Place multiple programs on a single 
diskette 

☆ Create auto-booting, fast-loading 
versions of your own programs 

☆ Back up programs are completely self- 
contained and run independently of the 
ISEPIC adapter 

☆ Backs up software with a flick of a 
switch 

☆ ISEPIC comes complete and ready-to- 
run, just plug into expansion port 

☆ Programs backed up by ISEPIC may be 
used on MSD or 4040 drives as well 
as hard disks regardless of original pro¬ 
tection schemes 

• FOR ARCHIVAL PURPOSES ONLY • 

When ordering by mail: 

* $64.95 + 3.00 shipping 

* $64.95 + 4.00 COD orders 

* Calif, residents add 6% sales tax 

* VISA or Mastercard accepted 

* Shipping out of USA $6.00 

Please allow 4-6 weeks for delivery. 

I ... WRITE OR PHONE . . . 

STORPOINT SOFTWARE 

Star Route ID Gazelle, CA 96034 [916] 435-2371 























Another complication is that 
your safe zone doesn't always stay 
safe for very long. After you shoot 
the ball that matches the border 
color, it begins shrinking from the 
bottom up. If you don't hurry out, 
you'll get zapped. 

And there's yet another reason 
to move quickly: If you finish a 
round by dropping every ball into 
the basket before the horizontal bar 
at the bottom of the screen disap¬ 
pears, you get a 50-point bonus. 

If all this action causes your 
brain to momentarily suffer a sys¬ 
tem crash, you can freeze every¬ 
thing by pressing and holding the 
SHIFT key. Press SHIFT LOCK tc 
freeze the game for extended peri¬ 
ods. Release SHIFT to resume play. 


For instructions on entering these listings, 
please refer to "COMPUTEi's Guide to Typing 
In Programs" published bimonthly in compute!. 

Program 1: Atari Laser 
Beam, Main Program 

SB 10 TRAP 90 

06 20 OPEN ttl ,4,0, "DjLASERBE 
M.OBJ" 

ON 30 CLOSE ttl 
DB 40 SOTO 220 
DO 90 CLOSE ttl 

BO 1 00 OPEN #1,8,0, ”D« LASERB 
EM.OBJ" 

JD110 READ NUMBEROPBYTES 
HE 115 READ SUMOFBYTES 
EL 120 N“0i S"0i TRAP 200 
PB 130 READ A 
EP 140 PUT ttl , A 
FE 150 N-N+l i S-S + A 
6E 160 SOTO 130 
FH 200 CLOSE ttl 
FF210 IF N< >NUMBEROFBYTES T 
HEN PRINT "ERROR IN N 
UMBER OF BYTES "I STOP 

LH215 IF S< >SUMOFBYTES THEN 
PRINT "ERROR IN SUM 
OF BYTES ":STOP 
6A220 RUN "D: LOADLSR. BAS" 

EC 10005 DATA 2440,265870 
HI 10010 DATA 255,255,0,40,1 

19,45,255,255,255,2 
55 

AB 10020 DATA 255,255,255,25 
5,0,0,0,255,255,0 
CK 10030 DATA 0,0,24,24,24,2 
4, 24,24,24,24 

HH 10040 DATA 16, 124,84,84,4 
0,40,40,108,0,24 
GF 10050 DATA 60,126,126,60, 
24,0,83,46,0,0 
HH 10060 DATA 0, 0,0, 0,0,0,0 , 
0 , 0,0 

DG 10070 DATA 5,15,13,169,0, 
133,203,169,51,133 
DJ 10080 DATA 204,165,190,13 
3,195,165,195,201,0 
, 208 

DJ 10090 DATA 1,96,162,0,160 
,0, 177,203, 149,214 
FF 10100 DATA 232,200,224,6, 
208,246,160,0,162,0 


II 10110 

IH 10120 

DC 10130 
KF 10140 

CB 10150 

JE 10160 

JN 10170 

El 10180 
CH 10190 

JB 10200 

JE 10210 

JB 10220 

AF 10230 

AF 10240 
NO 10250 

CL 10260 

CL 10270 
IK 10280 

BH 10290 
AO 10300 

IL 10310 

HH 10320 


DATA 134,240,134,24 

1.165.214.133.220.1 
65,215 

DATA 133,221,165,21 

6.133.222.165.217.1 


DATA 40,32,0,50,169 
,129,193,220,240,6 
DATA 169,133,193,22 
0,208,9,32,71,41,22 
8 

DATA 216,240,2,133, 
241,165,214,133,220 
, 165 

DATA 215,133,221,16 

5.218.133.222.165.2 
19,141 

DATA 157,40,32,0,50 
,169,129,193,220,24 
0 

DATA 6,169,133,193, 
220,208,9,32,85,41 
DATA 22B,218,240,2, 
133,241,165,214,133 
, 220 

DATA 165,215,133,22 

1 , 165,216, 133,222, 1 
65,217 

DATA 141,198,40,32, 
0,50,165,218,133,22 

2 

DATA 165,219,141,21 
0,40,32,0,50,169,12 
9 

DATA 193,220,240,6, 
169,133,193,220,208 
, 19 

DATA 32,71,41,32,85 
,41,133,241,169,1 
DATA 197,240,240,40 
,133,240,76,98,40,1 
69 

DATA 133,145,220,16 
9,0,145,214,165,241 
, 201 

DATA 0,240,3,32,37, 
41,165,220, 133,214 
DATA 165,221,133,21 

5.181.214.145.203.2 
32,200 

DATA 224,6,208,246, 
32,56,41,24,169,6 
DATA 101,203,133,20 
3,198,195,76,69,40, 
169 

DATA 0,141,31,208,1 
62,51,160,51,136,14 
1 

DATA 31,208,208,250 
,202,208,245,96,162 


LP 10330 DATA 160,0,200,192, 
40,208,251,232,224, 
80 

BD 10340 DATA 208,244,96, 169 
,160,197,217,240,3, 
133 

F0 10350 DATA 217,96,169, 176 
, 133,217,96, 169, 160 
, 197 

BI 10360 DATA 219,240,3, 133, 
219,96,169,176,133, 
219 

CF 10370 DATA 96,72,162,96,1 
69,12,157,66,3,32 

6D 10380 DATA 86,228,162,96, 
169,3,157,66,3,169 

BN 10390 DATA 40,157,68,3,16 
9,40,157,69,3,104 

NN 10400 DATA 157,75,3,41,24 
0,73,16,9,12,157 


BJ 10410 DATA 74,3,32,86,228 
,96,162,0,169,224 
KH 10420 DATA 141,158,41,169 
,48,141,161,41,189, 
0 

BJ 10430 DATA 224,157,0,48,2 
32,224,0,208,245,24 
HK 10440 DATA 173,161,41,105 
,1,141,161,41,173,1 
58 

HE 10450 DATA 41,105,1,141,1 

58.41.201.226.208.2 
24 

EF 10460 DATA 169,48,141,244 
,2, 162,8, 160,0, 185 
OF 10470 DATA 0,40,157,0,48, 
232,200,224,47,208 
NH 10480 DATA 244,96,169,0,1 

33.203.169.52.133.2 
04 

HN 10490 DATA 216,162,0,160, 
0,177,203,149,214,2 
32 

CO 10500 DATA 200,224,6,208, 
246,165,214,201,255 
, 208 

J610S10 DATA 6,165,215,201, 
255,240,64,162,0,16 
0 

BC 10520 DATA 0,196,217,240, 
5,177,216,76,4,42 
DE 10530 DATA 165,216,145,21 

4.232.228.218.240.3 
2,24 


CJ 10540 

DB 10550 

AL 10560 

KA 10570 

SH 10580 
PE 10590 

IA 10600 

HH 10610 
HB 10620 
60 10630 
KP 10640 

BK 10650 
HO 10660 
HF 10670 
HJ 10680 

KD 10690 

CO 10700 

00 10710 


DATA 165,219,101,21 
4,133,214,169,0,101 
,215 

DATA 133,215,196,21 
7,240,221,169,1,101 
,216 

DATA 133,216,169,0, 
101,217,133,217,76, 
249 

DATA 41,24,169,6,10 

1.203.133.203.76.21 
9 

DATA 41,96,162,0,16 
0,0,165,206,133,220 
DATA 165,207,133,22 
1, 173,120,2,201,14, 
240 

DATA 21,201,13,240, 
29,201,11,240,37,20 
1 

DATA 7,240,45,169,0 
,133,222,169,176,76 
DATA 142,42,169,20, 
133,222,32,9,44,169 
DATA 160,76, 142,42, 
169,20,133,222,32,9 
DATA 44,169,176,76, 

142.42.169.1.133.22 
2 

DATA 32,9,44,169,16 
0,76, 142,42, 169,1 
DATA 133,222,32,9,4 
4,169,176,76,142,42 
DATA 141,146,42,32, 
0,50,162,0,160,0 
DATA 169,129,193,22 
0,240,27,169,133,19 
3,220 

DATA 240,21,169,0,1 

45.206.169.4.145.22 
0 

DATA 165,220,133,20 

6,165,221,133,207,1 
69,0 

DATA 133,240,96,169 
,255,133,240,96,169 
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HP 10720 DATA 133,240, 197, 18 
1,240,3,198,181,76, 
12 

JD 10730 DATA 43, 173, 10,210, 
141,43,40,24,101,18 
8 


AL 10740 
EN 10750 
HE 10760 

JH 10770 

ED 10780 

EK 10790 

EF 10800 

CL 10810 

HN 10820 
AC 10830 
ED 10840 

PN 10830 

LF 10860 

LF 10870 

AA 10880 

AC 10890 
EE 10900 
HC 10910 

DA 10920 

AF 10930 

SO 10940 

EE 10950 

HJ 10960 

AK 10970 

KH 10980 

ED 10990 

CL 1 1000 


DATA 144,3,76,143,4 
3,173,45,40,41,31 
DATA 201,17,16,233, 
173,45,40,41,31,168 
DATA 165,177,133,22 
0,165,178,133,221,1 

69.20 

DATA 192,0,240,10,1 

33.222.32.176.50.13 
6 

DATA 192,0,208,24B, 
165,220,133,179,165 
, 221 

DATA 133,180,165,18 

9,133,181,169,193,1 
60,0 

DATA 145,179,165,IB 
1,201,0,208,119,163 
, 179 

DATA 133,220,165,18 
0,133,221,169,2,133 
, 222 

DATA 32,0,30,169,1, 
133,222,160,0,76 
DATA 51,43,32,0,50, 
169,4,209,220,240 
DATA 22,169,129,209 
,220,240,27, 169, 133 
, 209 

DATA 220,240,21,165 
,183,145,220,32,216 
, 44 

DATA 76,48,43,169,2 
55,133,240,169,0,13 
3 

DATA 181,76,143,43, 

32.36.41.165.179.13 
3 

DATA 220,165,180,13 
3,221,169,2,133,222 
, 32 

DATA 0,50,169,1,133 
,222,160,0,76,120 
DATA 43,32,0,50,169 
, 129,209,220,240, 13 
DATA 169,133,209,22 
0,240,7,169,0,145,2 
20 

DATA 76, 1 17,43, 169, 
129,145,179,96,169, 
128 

DATA 133,203,169,51 
,133,204,164,176,16 
2, 1 

DATA 177,203,149,17 

6.232.200.224.12.20 
8, 246 

DATA 96,165,182,141 
,223,42,165,186,141 
, 241 

DATA 42,165,184,141 
,40,43,141,109,43,1 
63 

DATA 183,141,33,43, 
141,102,43,165,187, 
141 

DATA 37,43,141,106, 
43,141,49,43,141,11 
a 

DATA 43,96,169,128, 
133,203,169,51,133, 
204 

DATA 164,176,162,1, 
181,176,145,203,232 
, 200 


HP 11010 

BO 11020 
IH 11030 
BH 1 1040 
EE 11050 
CP 1 1060 
KD 1 1070 

OH 11080 
KD 1 1090 

DK 1 1 100 
DE 11110 
HC 1 1 120 
PD 1 1 130 
PJ 11140 
LB 1 1 150 

DH 1 1 160 
BD 1 1 170 
NJ 11180 
AD 11190 
HH 11200 

HH 1 1 2 10 

KL 11220 

KC 1 1230 

HE 11240 

BE 11250 

KC 1 1260 

HL 11270 

EP 11280 
OA 11290 

HK 11300 

DO 1 13 1 0 
KD 11320 

DK 11330 
LB 11340 


DATA 224,12,208,246 
,96,165,197,201,0,2 
40 

DATA 13,201,1,240,1 

4.201.2.240.15.169 
DATA 33,76,6,44,169 
,0,76,6,44,169 
DATA 11,76,6,44,169 
,22,133,176,96,24 
DATA 248,173,43,40, 

109.51.40.141.43.40 
DATA 173,44,40,105, 
0,141,44,40,173,43 
DATA 40, 141,45,40, 1 

69.84.141.152.44.17 
3 

DATA 55,40,141,153, 

44.32.70.44.173.44 
DATA 40,141,45,40,1 

69.82.141.152.44.17 
3 

DATA 55,40,141,153, 
44,32,70,44,216,96 
DATA 160,0,248,169, 
0,141,46,40,141,47 
DATA 40,14,45,40,12 
1,46,40,10,14,45 
DATA 40,121,46,40,1 
0,14,45,40,121,46 
DATA 40,10,14,45,40 
,121,46,40,153,46 
DATA 40,78,45,40,78 
,45,40,78,45,40 

DATA 78,45,40,200,1 

73.45.40.153.46.40 
DATA 173,46,40,9,16 
, 141,46,40, 173,47 
DATA 40,9,16,141,47 
,40,160,0,185,46 
DATA 40,153,0,0,200 
, 192,2,20B,245,96 
DATA 169,160,141,1, 
210,166,194,32,207, 
44 

DATA 24, 105, 1,201,1 

76.208.241.169.14.1 
66 

DATA 195,32,207,44, 
56,233,1,208,246,16 

9 

DATA 175,141,1,210, 
166,196,32,207,44,5 
6 

DATA 233,1,201,159, 

208.241.96.160.19.1 
36 

DATA 208,253,202,20 
8,248,96,169,1,133, 
194 

DATA 141,163,44,141 
, 192,44, 169,64, 141, 
0 

DATA 210,169,4,133, 

195.169.1.133.196.1 

40 

DATA 48,40,32,160,4 

4.172.48.40.96.169 
DATA 2,133,194,133, 

195.133.196.169.3.1 

41 

DATA 163,44,141,192 
,44,165,192,141,2,2 

10 

DATA 140,48,40,32,1 
60,44,172,4B,40,96 
DATA 173,54,40,141, 
45,40,169,94,141,15 
2 

DATA 44,173,55,40,1 

41.153.44.32.70.44 
DATA 216,96,169,24, 


141.196.2.169.15.14 
1 

LF 11350 DATA 197,2,169,114, 
141,198,2, 169,48, 14 

HP 11360 DATA 199,2,96, 165,8 
9,41,240,141,111,45 
DI 11370 DATA 162,0,160,0,16 
9,0,133,203,169,55 
SB 11380 DATA 133,204,177,20 

3.201.255.240.27.14 
1,108 

BA 11390 DATA 45,141,113,45, 
200,177,203,141,109 
, 45 


HL 1 1 410 
EB 11420 


EH 11440 

FJ 11450 
OL 11460 
AI 11470 
PJ 1 1480 
HI 11490 
OH 11500 
CH 11510 
HC 11520 
PE 11530 
FH 11540 
AL 11550 

KC 11560 
PH 11570 
EK 11580 
AJ 11590 
FK 11600 
EE 11610 
HK 11620 
JF 1 1630 
3B 11640 
HK 1 1650 
JH 11660 
HF 11670 
HD 11680 
AO 11690 
LC 11700 


DATA 255,200,76,86, 
45,96,160,50,174,50 
DATA 216,56,165,220 
,229,222,133,220,16 
5,221 

DATA 229,223,133,22 
1,96,176,50,190,50, 
216 

DATA 24,165,220,101 
,222,133,220,165,22 
1 , 101 

DATA 223,133,221,96 
,0,51,101,51,220,13 
DATA 1,160,0,160,22 
1,13,1,160,20,160 
DATA 198,14,0,160,2 
0, 160,89, 14, 1, 160 
DATA 20,160,16,14,0 
,160,20,160,28,15 
DATA 1,160,0,160,95 
,14,1, 160,20, 160 
DATA 243, 13, 1, 160,2 
0,160,22,15,1,160 
DATA 20,160,194,14, 
1,160,0,160,195,13 
DATA 1,160,0,160,69 
,14,0,160,20,160 
DATA 39,14,1,160,20 
,160,140,14,1,160 
DATA 20,160,203,14, 

1,160,20,160,247,14 
DATA 1,160,20,160,2 
53,253,233,235,255, 
235 

DATA 128,51,182,51, 
188,13,0,0,0,17 
DATA 66,1,2,20,176, 
130,13,0,0,0 
DATA 13,67,20,40,1, 
176.207,13,0,0 
DATA 0,17,66,1,2,20 
,160,58,15,0 
DATA 0,0,15,67,20,4 
0,1,160,213,14 
DATA 0,0,0,6,66,1,2 
,20, 176,0 

DATA 52,89,52,128,1 
3,129,0,20,1,148 
DATA 13,129,0,20,1, 
168,13,129,0,20 
DATA 1,188,13,129,0 
,18,20,189,13,129 
DATA 0,18,20,206,13 
,129,0,18,20,207 
DATA 13,129,0,18,20 
,36,15,129,0,20 
DATA 1,56,15,129,0, 
20,1,76,15,129 
DATA 0,20,1,128,13, 
0,53,3,1,76 
DATA 15,3,53,3,1,13 
6,13,10,53,7 
DATA 1,88,15,27,53, 
6,1,233,233,253 
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BE 11710 DATA 235,253,253,0, 
33,32,33,44,37,54 
IK 11720 DATA 37,44,51,33,47 
,30,37,40,41,51 
HH 11730 DATA 35,47,30,37,44 
,33,31,37,30,0 
LL 11740 DATA 34,37,33,45,47 
,48,32,41,47,46 
6P 11750 DATA 0,34,41,54,137 
,14,17,53,10,1 
mil 760 DATA 213,14,129,0,6 
,20,214,14,129,0 
KF 11770 DATA 6,20,228,14,12 
9,0,6,20,229,14 
HH 11780 DATA 129,0,6,20,250 
, 14,4,0, 1, 1 

HF 11790 DATA 235,233,233,25 
3,255,253,0,33,89,5 
3 

DL 11800 DATA 1,31,7,51,13,3 
1, 19,51,23,31 

KL 11810 DATA 31,31,37,51,43 
,31,49,31,33,51 
U11820 DATA 61,51,67,31,73 
,31,79,51,83,51 
6H 11830 DATA 91,31,129,31,1 

40,51,131,31,162,31 
HH 11840 DATA 173,31,1,32,7, 

52.13.32.19.32 

LB 11830 DATA 23,32,31,32,37 
,32,43,32,49,32 
HB 11860 DATA 33,32,61,32,67 
,32,73,32,79,32 
FB 11870 DATA 1,34,7,34,13,3 
4,19,34,23,34 

Bit 11880 DATA 31,54,37,54,33 
,40,36,40,233,233 
PH 1 1890 DATA 0,36,167,37,16 
9, 17,32,99,41,32 
PP 11900 DATA 144,41,32,46,4 
3,32,210,41,32,24 
BL 11910 DATA 43,36,173,44,4 
0,237,33,40,48,28 
UK 11920 DATA 201,0,240,3,76 
,42,56,36,173,32 
DF 11930 DATA 40,237,43,40,1 
6, 12,173,43,40,141 
DL 11940 DATA 52,40,173,44,4 
0,141,33,40,173,52 
HJ 11930 DATA 40, 141,45,40,1 

69.146.141.132.44.1 
73 

EE 11960 DATA 56,40,141,153, 
44,32,70,44,173,33 
HJ 11970 DATA 40, 141,43,40,1 

69.144.141.132.44.1 
73 

HH 11980 DATA 36,40,141,133, 

44,32,70,44,216,169 
HK 11990 DATA 0,133,197,163, 

197.201.4.240.18.32 
BB 12000 DATA 231,43,32,144, 

43,169,0,133,181,32 
0112010 DATA 208,43,230, 197 
,76,99,36,169,240,1 
33 

EB 12020 DATA 206,173,36,40, 
133,207,169,235,133 
, 188 

HI 12030 DATA 169,32,133,189 
,169,1,133,190,141, 
51 

AS 12040 DATA 40, 169,0, 133,1 
97,133,192,133,193, 
141 

AE 12030 DATA 43,40,141,44,4 
0,32,28,44,24,165 
A6 12060 DATA 197,105,1,201, 
4,208,7,169,0,133 
LB 12070 DATA 197,76,182,56, 
133,197,32,231,43,3 
2 


KH 12080 DATA 144,43,32,167, 
43,32,190,42,169,23 
3 

HL 12090 DATA 197,240,240,12 
3,169,0,133,77,32,2 
08 

HJ 12100 DATA 43,32,37,40,16 

9.233.197.240.240.1 
09 

HO 12110 DATA 32,34,42,169,2 
53,197,240,240,100, 
32 

HO 12120 DATA 249,44,169,5,2 
03,31,208,208,7, 169 
AC 12130 DATA 4,203,31,208,2 
08,249,165,192,133, 
220 

AE 12140 DATA 163,193,133,22 
1,169,1,133,222,32, 
176 

61 12150 DATA 30,163,220,133 
,192,163,221,133,19 
3, 165 

HH 12160 DATA 192,201,0,208, 

39.230.190.24.163.1 
88 

BL 12170 DATA 233,10,133,188 
,198,189,24,248,173 
,31 

DA 12180 DATA 40,105,1,141,5 

1.40.141.43.40.169 
HB 12190 DATA 133,141,152,44 

,173,36,40,141,153, 
44 

DD 12200 DATA 32,70,44,216,1 
63,192,201,0,208,6 
KL 12210 DATA 163,193,201,16 
,240,3,76,164,36,16 
9 

OB 12220 DATA 6,205,31,208,2 
40,3,76,82,37,76 
HI 12230 DATA 0,36,169,0,205 
,31,208,208,3,76 
EB 12240 DATA 3,3B, 169,3,203 
,31,208,208,226,24 
6J 12250 DATA 248,173,54,40, 
105,1,216,141,54,40 
DI 12260 DATA 201,16,208,3,1 
69,0,141,54,40,173 
AK 12270 DATA 54,40, 141,45,4 
0,32,24,45,173,54 
HH 12280 DATA 40,201,0,208,3 
, 169, 1,76, 144,57 

CL 12290 DATA 10,10,10,10,14 
1,67,41,24,162,255 
HA 12300 DATA 160,253,192,0, 
240,4,136,76,132,57 
AP 12310 DATA 202,224,0,208, 
241,76,69,57,0,58 
EL 12320 DATA 126,58,32,67,4 
5,32,144,41,169,18 
BB 12330 DATA 32,99,41,32,14 

4.41.32.46.43.169 

JH 12340 DATA 0,133,203,169, 
54,133,204,32,218,4 

FH 12350 DATA 169,246, 133, 18 
8,169,60,133,189,16 
9,44 

BP 12360 DATA 133,176,169,0, 
162,0,160,0,192,233 
HE 12370 DATA 240,4,200,76,4 
6,58,224,255,240,34 
6H 12380 DATA 232, 141,50,40, 
142,49,40,140,4B,40 
DO 12390 DATA 32, 144,43,32,1 

67,43,32,190,42,32 
HF 12400 DATA 208,43, 173,30, 
40,174,49,40,172,48 
JO 12410 DATA 40,76,44,58,20 

1.3.240.5.105.1 


CB 12420 DATA 76,42,58,169,1 
7,32,99,41,32,144 
AC 12430 DATA 41,32,46,43,32 
,210,41,173,34,40 
LA 12440 DATA 141,43,40,32,2 
4,43,76,69,37,0 


Program 2: Atari Laser 
Beam, Loader Program 

BF 100 OPEN #1,4,0, "DlLASERB 
EM.OBJ" 

DH110 BET # 1 , X i BET #1,X 
FH 120 TRAP 210 
JO 130 BET #l,STARTLOi BET #1 
, 8TARTH11 BET #1,LASTI_ 
□iBET #1,LASTHI 
JK140 START-STARTL0+236*STA 
RTHI 

IH 130 LAST«LASTL0+236*LASTH 
I 

BJ 160 FOR I “START TO LAST 

FA 170 BET #1 , X 

JF 180 POKE I , X 

CC 190 NEXT I 

FP 200 BOTO 130 

IA210 CLOSE #1iX»USR(14848> 

BL 220 END 


Program 3: Commodore 64 
Laser Beam 

Version by Kevin Mykytyn, Editorial 
Programmer 

Please refer to the "MLX" article in this issue 
before entering the following listing. 


49152 

49158 

49164 

49170 

49176 

49182 

49188 

49194 

49200 

49206 

49212 

49218 

49224 

49230 

49236 

49242 

49248 

49254 

49260 

49266 

49272 

49278 

49284 

49290 

49296 

49302 

49308 

49314 

49320 

49326 

49332 

49338 

49344 

49350 

49356 

49362 

49368 

49374 

49380 

49386 

49392 

49398 

49404 

49410 

49416 

49422 

49428 
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51072 

51078 

51084 

51090 

51096 

51102 

51108 

51114 

51120 

51126 

51132 

51138 

51144 

51150 

51156 

51162 

51168 

51174 

51180 

51186 

51192 

51198 

51204 

51210 

51216 

51222 

51228 

51234 

51240 

51246 

51252 

51258 

51264 

51270 

51276 

51282 

51288 

51294 

51300 

51306 

51312 

51318 

51324 

51330 

51336 

51342 

51348 

51354 

51360 

51366 

51372 

51378 

51384 

51390 

51396 

51402 

51408 

51414 

51420 

51426 

51432 

51438 

51444 

51450 

51456 

51462 

51468 

51474 

51480 

51486 

51492 

51498 

51510 

51516 

51522 

51528 

51534 

51540 

51546 

51552 

51558 

51564 

51570 

51576 

51582 

51588 

51594 

51600 

51606 

51612 


007,16 

133,01 

039,20 

248,00 

248,00 


060,00 

060,00 

070,00 




3,136,208,235,157 


1,021,208,] 
6,237,178,6 
5,249,199,] 
5,001,200,1 
3,001,200,] 
5,009,2 


141.1 
208,19 

208.1 
169,0 


153,150,6 

3.136.196.6 

9.255.141.6 
7,141,037,2 
‘ ,038,208,169,199 


096,0 

006,0 

214,2 


9,032,023,1 

2,003,004,6 

1,204,214,: 

4,214,214,6 

0 , 100 , 100 ,] 

0,100,106 


3,009,200,141,6 
5,017,200,153,038 


1 ,200,141,030 
5,025,200,153,068 
9,000,141,080,167 


0,000,000,000,066 


0,000,000,0 
0,000,000,6 
,255,0 
0,000,255,6 
0,002,255,1 
8,002,255,1 


8,000,085,] 

0,000,255,6 

0,000,255,6 


0,000,100,000, 

0,000,170,000, 

0,000,000,000,008 


5,000,000,255,104 
5,000,000,060,: 
5,128,002,255,248 
5,128,000,255,124 
.28,000,255,214 
100,000,255,134 


10,000,000,160 
0,060,000,000,226 
0,255,000,000,170 
0,060,000,002,239 
‘ 255,128,002," 


0,255,000 
0,255,000 
0,250,000 
0,160,000 
0,160,000 
0,000, " 


,000,196 

,000,022 

,000,028 


0,000,255, 

0,000,255, 

0,002,255, 

8,001,255, 

8,000,085, 


000,035 

000,216 

128,177 

128,251 

128,085 


8,000,255,000,132 


0,000,255,6 
0,000,170,000,] 
0,000,170,000,108 


0,000,000,000,200 


5,000,000, 

5,000,000 

5,128,002, 

5,128,001, 

5,128,000, 

5,000,000, 

5,000,000, 


0 , 000,000 

0,060,000 

0,235,000 


,255,] 
255,060 
255,150 
255,070 
175,252 
010,If" 
010,110 
000,096 
-,162 


0,060,000 
255,128 
2,255,128 
1,255,000, 


,000,086 

,002,175 

,002,122 

,001,127 

,000,217 

000,136 

000,137 


51618 

51624 

51630 

51636 

51642 

51648 

51654 

51660 

51666 

51672 

51678 

51684 

51690 

51696 

51708 

51714 

51720 

51726 

51732 

51738 

51744 

51750 

51756 

51762 

51768 

51774 

51780 

51786 

51792 

51798 

51804 

51810 

51816 

51822 

51828 

51834 

51840 

51846 

51852 

51858 

51864 

51870 

51876 

51882 

51888 

51894 

51900 

51906 


000,000,000,00 
000,240,000,00 
000,188,000,00 
060,000,00 
250,000,00 
255,128,00 
248,000,00 
003,207,000,01 
,015,000,00 
,000,008,00 
000,000,2 
, 000 , 000,00 
,000,252,r 


000,000,084,0 


000,000,060,0 


: 000,000,040,0 


3,000,0 

3,000,0 

3,000,0 


3,002,2 

3,000,0 

3,000,2 


:000,015,000,0 

i000,062,000,0 


0,000,162 

2,000,148 

2,000,102 

4,128,076 
6,000,149 
5,000,1“ 
5,000,188 
3,168,160 
0,008,248 
0,000,005 
0,240,2 
0,188,162 
“ 060,040 
0,251,236 
0,255,3 
0,252,082 
0,060,064 
0,060,1 
0,040,100 
0,168,234 
0,000,031 
0,000,053 
0,000,169 
‘ “30,173 
2,002,248 
0,000,126 
0 , 000,000 
‘ “70,242 
8,042,122 
2,032,150 
0,255,163 
“ “70,098 



:128,010,090,1 
:160,041,106,1 


51918 

51924 

51930 

51936 

51942 

51948 

51954 

51960 

51966 

51972 

51978 

51984 

51990 

51996 

52002 

52008 

52014 

52020 

52026 

52032 

52038 

52044 

52050 

52056 

52062 

52068 

52074 

52080 

52086 

52092 

52098 

52104 

52110 

52122 

52128 

52134 

52140 

52146 

52152 

52158 


312 :168,042,170,1 


:160,010,170,1 
: 128,000,170, 


:001,169,000,1 
:056,133,003,1 
:004,169,208,1 
!008,160,000,1 
:002,136,208,2 
:230,003,202,2 
055,133,001,' 


203,153,008,0 

247,088,096,1 

231,231,216,1 

126,024,036,0 

024,001,003,0 

027,003,001,0 

036,036,024,1 


>,255,1 
5,255,2 
),192,0 


>240,101,162,0 


3,016,0 

5,001,2 

3,165,1 

3,070,0 

5,024,1 

5,011,02 

5,176,00 

3,202,20 


1,235 


3,164 


2,170,000 
9,090,151 
1,170,100 
2,170,180 
2,170,186 
0,170,''“ 
2,170,110 
“70,254 
10,218 
1,133,185 
2,169,192 
“ "73,218 
5,162,155 
4,145,230 
0,005,060 


0,141,027 

5,031,175 

6,016,083 

2,216,227 

8,255,007 

4,024,(3 

1,231,051 

4,024,155 

5,127,150 

5,010,246 

5,082,065 

0,080,039 

8,028,i:“ 

0,020,116 


9,255,010 
3,164,218 
7,173,124 
3,208,21" 
6,253,206 
3,255,030 
5,176,146 
0,003,205 
6,005,039 
1,201,045 
1,165,140 
3,016,1 ' 
1,166,213 
0,169,236 
4,166,028 
9,039,007 


52164 

52170 

52176 

52182 

52188 

52194 

52200 

52206 

52212 

52218 

52224 

52230 

52236 

52242 

52248 

52254 

52260 

52266 

52272 

52278 

52284 

52290 

52296 

52302 

52308 

52314 

52320 

52326 

52332 

52338 

52344 

52350 

52356 

52362 

52368 

52374 

52380 

52386 

52392 

52398 

52404 

52410 

52416 

52422 

52428 

52434 

52440 

52446 

52452 

52458 

52464 

52470 

52476 

52482 

52488 

52494 

52500 

52506 

52512 

52518 

52524 

52530 

52536 

52542 

52548 

52554 

52560 

52566 

52572 

52578 

52584 

52590 

52596 

52602 

52608 

52614 

52620 

52626 

52632 

52638 

52644 

52650 

52656 

52662 

52668 

52674 

52680 

52686 

52692 

52698 
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The Original 
Boston Computer 

Tony Roberts, Production Director 

Requirements: IBM PC, PCjr, or XT with 
at least 128K RAM; Apple Il-series com¬ 
puter with at least 64K RAM; or a Com¬ 
modore 64/128. All versions also require 
a disk drive. 


Discipline is a key ingredient in any 
weight-loss program, and that remains 
true with The Original Boston Computer 
Diet, a software package from Scarbor¬ 
ough Systems. 

While the program takes a conser¬ 
vative, balanced-diet approach to 
weight loss, its strengths are in the 
ways it helps dieters gather information 
about their eating habits and how it 
takes the drudgery out of counting calo¬ 
ries. Before embarking on the diet, you 
choose one of three “counselors" who 
engages you in a question-and-answer 
session. Based on this information, the 
counselor sets up goals and procedures 
for the diet and assigns readings on 
nutrition and health. 

The program requires about an 
hour a day for the first week or so, after 
which the daily meal planning and re¬ 
porting routine takes only about 15 
minutes. The program maintains seven 
days' worth of data for meals, and a 
series of charts are available to help you 
amass and assess information about 
your eating habits. The information in¬ 
cludes statistics on the intake of various 
vitamins and minerals, as well as data 
about how your mood—from depres¬ 
sion to elation—affects the number of 
calories consumed. 

The heart of the program is the 
food planning and reporting section. 
Counting calories is practically effort¬ 
less. As you plan future meals, the 
screen shows how each selection affects 
the number of calories in the scheduled 
meal as well as the balance of the weekly 
diet. With the touch of a key, you can 
tell the computer how much you ate 
during your last meal, and it adjusts the 
calorie count accordingly. 


Diet 


As the program builds its database 
of information about how you eat, it 
watches for and warns you of possible 
problems. Should your diet fall out of 
balance, the program might warn that 
your intake of calcium has been low 
recently, bolstering its comment with a 
graph or two. Another possible prob¬ 
lem is undereating, which is as unac¬ 
ceptable to your counselor as pigging 
out. 

The program can't guarantee you'll 
lose all the weight you hope to, but its 


evaluation of your eating habits, its in¬ 
sistence on planning and setting goals, 
and its readings on health and nutrition 
in the manual do give you the tools to 
help you maintain interest in your diet 
and develop the willpower to carry it 
off. 

It's worth noting that the program 
is set up to handle the data for only one 
dieter at a time. A second family mem¬ 
ber who plans to take the treatment 
would have to obtain another copy of 
the program or wait until dieter No. 1 
has had his fill. 

The Original Boston Computer Diet 
Scarborough Systems, Inc. 

25 N. Broadway 
Tarry town, NY 10591 
Apple & IBM $79.95 
Commodore $49.95 


Free Catalo g! 

Your 80-page guide to computer supplies and 
accessories-including complete 
new product descriptions. 



Packed with over 1600 products for microcomputers, minicomputers, 
and word processors - many available nowhere else. 

I Big special section devoted to new supplies and accessories. 

■ Comprehensive product descriptions - including more than 475 
full-color photos - clearly explain features and benefits. 

■ Easy-to-use cross reference guides to magnetic media, ribbons, 
and more-along with the industry’s most complete cable guide. 
■ Helpful suggestions and tips, ranging from flexible disk 
care to proper ribbon selection to useful application ideas. 

Phone toll-free 1-800-547-5444 


MtniMB Phone toll-free1-800-547-5444 or send coupon today. 

Inmac Catalog Dept. —-:- 

2465 Augustine Drive COMPANY _ 

Santa Clara, CA 95054 ^_ 

Please rush my free copy of city_ _ _ 

the Inmac Catalog. I under- PHnNF 

stand there is no obligation ^^- 


October 1985 COMPUTEI 69 




























COMMODORE 64 


COMPUTER AND SOFTWARE 


SALE 


139 


95 


• 170K Disk Drive $149.95 

• Tractor Friction Printer $159.95 

• 13" Hi-Res Color Monitor $169.95 


CALL 

BEFORE 

YOU 

ORDER 




PRICES 

MAY 

BE 

LOWER 


Cl 28 COMMODORE 
4H& COMPUTER 

(Order Now) 

$40095 


SPECIAL SOFTWARE COUPON 


• 340K1571 Disk Drive $259.00 

• Voice Synthesizer $39.95 

• 12" Green or Amber Monitor $69.95 

• Printer/Typewriter Combination $249.95 



80 COLUMN BOARD $59.95 

you program 80 COLUMNS on the screen at one 
! Converts your Commodore 64 to 80 COLUMNS 
i you plug in the 80 COLUMN EXPANSION 
BOARD! I PLUS 4 slot expander! 


80 COLUMNS IN COLOR 
PAPERBACK WRITER 64 WORD PROCESSOR $39.95 

' is PAPERBACK WRITER 64 WORD PROCESSOR is the 
test available for the COMMODORE 64 computer' 
The ULTIMATE FOR PROFESSIONAL Word Processing 
DISPLAYS 40 or 80 COLUMNS IN COLOR or black and 




I Simple 


1st $99.00. SALE $39.95. Coupon $29.95. 


ATTENTION 

Computer Clubs 

We Offer Big Volume Discounts 

CALL TODAY! 


PROTECTO WARRANTY 

I onThb^fails™ ItMn 90 da °s fJorTthe dat d °’f n,y 

irepa'id. We will IMMEDIATEL^se!^ you^replacement a 


PRINTER/TYPEWRITER COMBINATION $249.95 


typewriter keyboard, automc 
relocate key, drop in cassette ribbon! (90 day 
warranty) centronics parallel or RS232 serial port built 
in (Specify). List $349.00. SALE $249.95. (ltd. Qty.) 


13" RGB & COMPOSITE MONITOR $279.00 


column computers (C128 & A 
(Add $14.50 shipping) 

List $399.00. SALE $379.00. 


1 LOWEST PRICES • 15 DAY FREE TRIAL 
’ BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL 


•90 DAY FREE REPLACEMENT WARRANTY I 
• OVER 500 PROGRAMS • FREE CATALOGS I 


Add $1 


.00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U S dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA. 

Enclose Cashiers Check, Money Order or Personal Check. Allow 14 

VISA — MASTER CARD — C.O.D. 

No C.O.D. to Canada, APO-FPO. 


We Love Our Customers 

22292 N. Pepper Rd., Barrington, Illinois 60010 

312/382-5244 to order 
























GIANT PRINTER SALE!! 


List $399.00 10" Printer 



10” Comstar 10X — This Bi-directional 
Tractor/Friction Printer prints 
standard sheet 8%”xll” paper--and 
continuous forms or labels. High 
resolution bit image graphics, 
underlining, horizontal tab setting, true 
lower descenders, with super scripts and 
subscripts, prints standard pica, 
compressed, expanded, block graphics, 
etc. Fantastic value. (Centronics 
parallel interface.) 

List $399.00. Sale $179.00. 


List$ 499.00 TO" Printer 



10” Comstar 160+ High Speed — This 
Bi-directional Tractor/Friction Printer 
combines the above features of the 10” 
Comstar 10X with speed (150-170 cps) 
and durability. Plus you get a 2K buffer, 
96 user definable characters, super 
density bit image graphics, and square 
print pins for clearer, more legible print 
(near letter quality). This is the best 
value for a rugged dependable printer. 
(Centronics parallel interface.) 

List $499.00. Sale $229.00. 


List$ 599.00 TO" Printer 



7 Year Warranty 

120-140 CPS 

Premium Quality 



I Year Warranty 

150-170 CPS 

High Speed 



Lifetime warranty* 

165-105 CPS 

High Speed & Letter Quality 


List$ 599.00 15V4" Printer 



151 / 2 ” Comstar 15X — Has all the 
features of the 10” Comstar 10X plus a 
wider 15)4” carriage and more powerful 
electronics to handle large ledger 
business forms! (Better than FX-100). 
The 15% ” Comstar 15X also prints on 
standard size paper and continuous 
forms and labels. Fantastic value. 
(Centronics parallel interface.) 

List $599.00. Sale $249.00. 


List$ 699.00 15/4" Printer 



151 / 2 ” Comstar 160+ High Speed - This 
Bi-directional Tractor/Friction Printer 
has all the features of the 10” Comstar 
160+ High Speed plus a wider 15%” 
carriage and the heavy duty electronics 
required for today’s business loads. You 
can use large ledger business forms as 
well as standard sheets and continuous 
forms and labels. This is the best wide 
carriage printer in the U.S.A. 
(Centronics parallel interface.) 

List $699.00. Sale $299.00. 


List $ 599.00 10" Printer 



10” Comstar 2000 — The ultimate printer 
has arrived! This Bi-directional 
Tractor/Friction Printer gives you all 
the features of the Comstar 160 plus 
higher speed (165-185 cps), 256 
downloadable characters, proportional 
setting, external dark printing mode and 
a *lifetime printhead warranty. PLUS ... 



With the flip of a switch you can go into 
the letter quality mode which makes all 
your printing look like it came off a 
typewriter. Turn in term papers, do 
articles or just print programs. Have the 
best of letter quality and speed in one 
package. Fantastic printer (Centronics 
parallel interface.) 

List $599.00. Sale $259.00. 


• 75 Day Free Trial — I Year Immediate Replacement Warranty 

- Parallel Interfaces -- 


Commodore-64, VIC 20 - $39.00 Atari — $59.00 Apple II, II + , He - $59.00 


Add $10.00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $20.00 for CANADA. PUERTO RICO. HAWAII. 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. 

Enclose Cashiers Check, Money Order or Personal Check. Allow M 
days for delivery, 2 to 7 days for phone orders, 1 day express mail! 
VISA — MASTER CARD — C.O.D. 

No C.O.D. to Canada, APO-FPO. 



We Love Our Customers 

22292 N. Pepper Rd„ Barrington, Illinois 60010 

312/382-5244 to order 








COLOR MONITOR 
0 SALEH! 



(Premium Quality) 

• Built in Speaker and 
Audio 

• Front Panel Controls 

• For Video Recorders 



* For Small Business 
Computers 


(Premium Quality) 


• Beautiful Color 
Contrast 

• High Resolution 

• Separated Video 

• Sharp Clear Text 

• Anti-Glare Screen 

• 40 Columns x 24 Lines 

• Supports 80 Columns 


List $329°' 


13" Color Computer Monitor 

Sale 


'Connecting cable $9.95 


W 5 


13" RGB & COMPOSITE MONITOR 


List $399.00 

Must be used to get 80 columns in color with 80 column computers (Cl 28 & 
Atari ST), (add $14.50 shipping) 


Sale $ 279 00 ‘ 


14" COMMODORE 1702 COLOR MONITOR c _i_ $17000' 

(add $14.50 shipping) List $299.00 301© WWW 

15 Day Free Trial - 90 Day Immediate Replacement Warranty 


12" XTRON SUPER HI-RESOLUTION MONITOR c_|_ $1 AQ9S* 

80 Columns x 24 Lines, Super Hi-Resolution 1000 lines Green or Amber 3^11^5 I 

Super-Clear "Easy to Read" text with special anti-glare screen! (Ltd. Qty.) List $249.00 

12" HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 

80 Columns x 24 Lines, Hi-Resolution, crisp clear easy to _ _ 

read text with anti-glare screen! A MUST for word processing. (Ltd. Qty.) List $199.00 S I 

12" MONITOR GREEN OR AMBER TEXT Ust$159 00 c.l. $AQ9S 

80 Columns x 24 Lines, easy to read up front controls (Ltd. Qty.) I \W W 

* Connecting cable $9.95 

• LOWEST PRICES • BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 


Add $10.00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. 

Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
days for delivery, 2 to 7 days for phone orders, 1 day express mail I 
VISA — MASTER CARD — C.O.D. 

No C.O.D. to Canada, APO-FPO. 


We Love Our Customers 

22292 N. Pepper Rd., Barrington, Illinois 60010 

312/382-5244 to order 
























Other Accessories 

List 

Sale 

Add $9.95 for 

1 2" Hi Resolution Green or Amber Screen Monitor 

$199.00 

69.95 

(Monitors Only) 

13” Hi Resolution Color Monitor 

$399.00 

169.95 

(Ltd. Qty) 

* ATARI 130XE 152K Computer 

$249.00 

159.00 

Add $10 for UPS 


152K SYSTEM 

849900 


■I 88K Lowest Price In The USA! 152K 

atarI- Computer System Sale 

• Students • Word Processing • Home • Business 


Best Prices * Over 1000 Programs and 500 Accessories Available * Best Service 
• One Day Express Mail • Programming Knowledge • Technical Support 


Add $25.00 for shipping and handling!! 

Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
days for delivery. 2 to 7 days tor phone orders. 1 day express mail! 
We accept Visa and MasterCard. We ship C.O.D. to continental 
U.S. addresses only. Add S10 more if C.O.D. 


COMPUTER DIRECT 

We Love Our Customers 

22292 N. Pepper Rd., Barrington, III. 60010 

312/382-5050 to order 


All 5 ONLY 

$ 449 00 


15 DAY FREE TRIAL. We give you 15 days to try out this ATARI COMPUTER SYSTEM! I If it doesn't meet your expectations, just send it back to us prepaid 
and we will refund your purchase price! ! 90 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of the ATARI COMPUTER SYSTEM equipment or 
programs fail due to faulty workmanship or material within 90 days of purchase we will replace it IMMEDIATELY with no service charge!! 




SYSTEM PRICE 

Atari 800XL 88K Computer 

Atari 1050 127K Disk Drive 

Atari 1027 Letter Quality 20 CPS Printer 

Atari Writer Word Processer 

Atari BASIC Tutorial Manual 

All connecting cables & T.V. interface included. _ 

Monitors sold separetly. TOI ALS 


$179.00 

$ 109°° 

299.00 

199 00 

299.00 

199°° 

59.95 

39 95 

16.95 

12’ 5 


$852.90 $559.90 



























The Writer’s Tool For Atari 


Robert L. Riggs 

Requirements: Atari 400/800, XL, or XE 
computer with at least 48K RAM, a disk 
drive, and a printer. 


Those of us who can't afford the super- 
expensive computers—and still need to 
do extensive computing—try to get 
multiple duty from our inexpensive 
machines. Games are nice. But we also 
want programming languages, spread¬ 
sheets, database managers, and quality 


word processors. As a high school 
teacher, I use my Atari 800XL for all 
kinds of time- and labor-saving jobs. 
Still, word processing is my primary 
concern and, until now. I've not found a 
program that was sophisticated enough 
for all my needs. 

But The Writer's Tool is an extrapo¬ 
lation of all the other Atari word pro¬ 
cessors I've tried. Anything they can 
do, The Writer’s Tool does better. Even 
the documentation is superior. The 


Here are 87 reasons to 
buy at Elek-Tek, not to 
mention the fastest 
delivery anywhere. 


£vM=GA 

BERNOULLI BOX 


Save 30% to 43% 

off Manufacturer Suggested Ret. prices on 

EPSON • Okidata • Star • DIABLO 
• TOSHIBA • COMREX • 


k 10 meg Drive for IBM-PC/XT/ 

AT & compatibles. 179> 

k 20 meg Drive for IBM-PC/XT/ 


er Amdek Monitors . CALL 
ith Monitors CALL 

r Six Pak + 

function Board. 64K 229 

r Six Pak (loaded) 

function Board. 384K 289 


LQ 1500 parallel CALL 

13. DX10 Daisy Wheel 10CPS 230 

14. DX20 Daisy Wheel 20CPS CALL 

15. Comrex II Comriter 269 

STAR 


18. SR 10/15 

OKI 

19. Ok. 182 


PRODUCTS FOR IBM-Pi 


33. Generic Multi 

34. Orchid Tech. 


36. Hercules 

Monochrome Card 

37. Hercules Color 


Modem w/software 

39. Novation 4905921 

Internal Modem w I 



OTHER PRINTERS 

22. Olympia Compact 2 $ 350 

23. Olympia Compact RO CALL 


I. US Robotics Courier 2400 

Ext 2400B Smart Modem 460 

>. US Robotics Telpac 



Call for Quantity pricing for 10 boxes or m 


CALL TOLL FREE 800-621-1269 EXCEPT Illinois, Alaska 


ELEK-TEK,inc. 


166-page manual is clear and concise, 
and it includes an 89-page tutorial es¬ 
pecially designed for those who are 
completely new to word processing, 
plus a 56-page reference section. 

If you've tried other word proces¬ 
sors for Atari computers, you'll find the 
transition to The Writer's Tool quite 
painless—and exciting. A quick once¬ 
over to note the new capabilities gets 
you started. Just pull out the quick ref¬ 
erence card from the front of the man¬ 
ual and start typing. Then, after getting 
comfortable with The Writer's Tool, read 
the entire manual and try out each new 
feature. The tutorial section leads you, 
step by step, through each function. 
The reference section provides detail. 
Optimized Systems Software makes 
this word processor very easy to learn 
and use. 

This doesn't mean that The Writer's 
Tool is a simplistic, third grade level 
word processor—not by a long shot. It 
starts right out with a customizer pro¬ 
gram that lets you personalize The Writ¬ 
er's Tool to suit your own purposes and 
tastes. You can preset the printing for¬ 
mat, screen display, and sound options 
so your preferences load automatically 
each time you boot the program. It's 
great to be able to change the lumi¬ 
nance of the characters and background 
colors for clearer visibility. Or you can 
vary the blinking speed of the cursor— 
which, by the way, can be either a block 
or an underline. You can even adjust 
the screen width to display more or 
fewer characters per line. 

Printing Versatility 

By presetting the printer format, you 
can select new default values for page 
length, line spacing, beginning footer 
line, font, single sheet option, line 
length, left margin, justification, and all 
tab stops. The selectable fonts are inter¬ 
esting, too. I have two Centronics print¬ 
ers, a 737 (equivalent to the Atari 825) 
and a 739 (a 737 with graphics). Ac¬ 
cording to their manuals, each has only 
three fonts plus elongated versions. But 
The Writer's Tool can print four fonts. 
Somehow it comes up with a second 
proportionally spaced font that Cen¬ 
tronics doesn't even document! 

The Writer's Tool, of course, sup¬ 
ports all the major printers: Atari, the 
Epsons, Gemini 10X, Prowriter/NEC 
8023, Okidata 82A and 92, Comriter 
CR-II, Mannesman Tally Spirit 80, and 
so on. There's also a generic printer 
option, or you can insert printer control 
codes directly into the text. Printer 
problems should be practically nonex¬ 
istent with The Writer's Tool. 

Among the special printing fea¬ 
tures is something called the automatic 
header block. SHIFT-CTRL-H puts a 





































block of easily modifiable printer com¬ 
mands on the screen for creating stan¬ 
dard page formats. The block has a 
reverse slash that enables what OSS 
calls split justification. Everything to 
the left of the diagonal is justified to the 
left margin, while everything to the 
right is printed at the right margin. 
Now, printing tables of contents is a 
breeze. 

In fact. The Writer's Tool offers four 
kinds of justification: (1) justification 
off, but word-wrap retained; (2) right 
justification; (3) word-wrap off; and (4) 
microspaced justification (for printers 
that offer this feature). You can insert 
"soft hyphens" in long words, but hy¬ 
phenation occurs only if the word can 
be split between two print lines. Or you 
can insert "hard spaces" to prevent 
phrases like "Figure 5" from being split 
between lines. 

Another special printing feature is 
a graphics driver that, with certain 
printers, lets you include pictures and 
graphs in your documents. The images 
can be created with a Koalapad, Atari 
Touch Tablet, Atari light pen, or virtu¬ 
ally any other drawing program that 
uses graphics mode 7.5 or 8. 

Like Atari's popular AtariWriter 
word processor. The Writer's Tool has a 
print-preview feature. But unlike Atari- 
Writer, it lets you edit the previewed 
text as well. There's also a Print System 
screen that tells you, among other 
things, the number of words in the 
document. You can use the Disk I/O 
System screen to determine the number 
of characters in the document, the loca¬ 
tion of the cursor, the amount of avail¬ 
able memory, and how much memory 
remains. 


Typeover A 

For entering text. The Writer's Tool of¬ 
fers both typeover and insert 
Other word processors sometin 
only one or the other (for e 
AtariWriter is locked in insert mode). 
Even in typeovi 
characters or lines with The Writer's 
Tool by pressing CTRL-INSERT oi 
SHIFT-INSERT. Pressing CTRL-I tog 
gles the insert mode, denoted by c 
flashing vertical bar. If you don't like tc 
watch the text ahead of the cursor repo¬ 
sitioning itself as you insert, yi 
press SHIFT-CTRL-INSERT to open up 
a large block of empty space. After in¬ 
serting your text, you can remove tl 
unused space by pressing CTRL-J. 

movement, CTRL-CAPS turns on 
mode that lets you manipulate the cc 
r keys without simultaneously pres 
ing CTRL. A reminder at the bottom of 
the screen indi( 

switched on, along with the CAPS 
LOCK and inv< 


A big kudo is deserved for the 
Merge command. Pressing M from the 
Print System menu activates the Merge 
System. This is a subprogram which 
handles the creation of database files 
and the merged printing of these files 
with template documents. That means 
that you can use the built-in database 
(or another, like SynFile) to automati¬ 
cally insert names and addresses, for 
example, into form letters. Don't worry. 
The tutorial section takes you through it 
step by step. 

The Writer’s Tool lets you move 
swiftly through your documents. You 
can quickly scroll forward or backward 
with CTRL-F (forward) or CTRL-R 
(reverse), though the text scrolls only 
20 lines, so you have to glance up or 
down three lines to find where you left 
off. But it's fast —unlike AtariWriter. 

A Few Criticisms 

There are a few things about The Writ¬ 
er's Tool that could stand improvement. 
CTRL-W moves the cursor by word, 
which is nice, but if you move to the 


end of the document with CTRL-W, the 
cursor ends up on the last letter of the 
last word—so if you start typing imme¬ 
diately, you make a typo. 

Another drawback is that The Writ¬ 
er's Tool uses OSS's DOS XL instead of 
Atari DOS. DOS XL supports single and 
double density but not the Atari 1050's 
one-and-a-half density. This isn't a se¬ 
vere handicap—since the disk isn't 
copy-protected, you can transfer the 
program to another disk that contains 
any DOS you like, including the latest 
DOS 2.5. 

The provisions for tabs could be 
improved. A special feature of the old 
Atari Word Processor that came in handy 
was decimal and right-justified tabs. 
The Writer's Tool offers neither. 

Still, I can live with a few relatively 
minor shortfalls. The Writer's Tool re¬ 
mains a superbly designed and execut¬ 
ed word processor for serious use on 
Atari computers. OSS recently cut the 
price by $30 and now includes a 20,000- 
word spelling checker as well. And, for 


MICROSHARE 



GREATER PRODUCTIVITY & LOWER COST 
FOR BUSINESS AND EDUCATIONAL USE 

























duced to second grade simplicity." If 

sure, or if you intend to use your Atari 
for more than occasional writing, wait 

Optimized Systems Software 

Copies 
of articles 
from this 

Karateka 

from time to time, and the fortress con- 

publication 

lil!~ 

are now 
available 

j^zro d p o tiomi /128 mth a disk dnve ' 


from the 


jSUSSJ 

UMI Article 
Clearinghouse. 

For more information 
about the Clearinghouse, 

ggpillg 


the coupon below. 

TTTMTr a t • i 

WISS 


^MArtide, 

Ueannghouse 

The Apple version of Karateka has 

Karateka 

55f 


p; 




□ Un interested in sending order* 

□ Please send me your current catalog and 
user instructions for the system(s) I 
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warnors, each easily identified by his 

Warriors aren't the only obstacle 






































NRI Trains You At Home—As You Build Your Own IBM-Compatible Computer 


GET THE KNOW-HOW 
TO REPAIR EVERY 
COMPUTER ON THIS PAGE. 


Learn the Basics the NRI 
Way-and Earn Good 
Money Troubleshooting 
Any Brand of Computer 

The biggest growth in jobs 
between now and 1995, according 
to Department of Labor estimates, 
will occur in the computer service an 
repair business, where demand 
for trained technicians will 
actually double. 

You can cash in on this 
opportunity—either as a 
fulltime corporate technician 
or an independent service- 
person—once you’ve learned 
all the basics of computers the 
NRI way. NRI’s practical 
combination of “reason-why” 
theory and “hands-on” building 
skills starts you with the fundamentals 
of electronics, then guides you through 
advanced electronic circuitry and on 
into computer electronics. You also 
learn to program in BASIC and machine 
language, the essential languages for 
troubleshooting and repair. 

You Build-and Keep-a 16-bit 
Sanyo personal computer 

The vital core of your training is the 
step-by-step building of the 16-bit Sanyo 
MBC-550 series computer. Once you’ve 
mastered the details of this state-of-the- 
art machine, you’ll be qualified to 
service and repair virtually every major 
brand of computer, plus many popular 
peripheral and accessory devices. 

With NRI training, you learn at your 
own convenience, in your own home. 
You set the pace—without classroom 
pressures, rigid night-school schedules, 
or wasted time. You build the Sanyo 
IBM compatible computer from the 
keyboard up, with your own personal 
NRI instructor and the complete NRI 
technical staff ready to answer your 
questions or give you guidance and 
special help whenever you need it. 

Praised by critics as the “most 
intriguing” of all the IBM-PC compatible 
computers, the new Sanyo uses the same 
8088 microprocessor as the IBM-PC and 



the 8088 microprocessor functions, using 
machine language. You’ll also prepare 
the interfaces for future 
peripherals such as printers 
and joysticks. 

100>Page Free Catalog 
Tells More 

Send the coupon today for 
NRI’s big 100-page color 
catalog on NRI’s electronics 
training, which gives you 
all the facts about NRI 
’ courses in Micro- 
■t computers, Robotics, 
Data Communica- 
/ tions, TV/Video/ 
Audio Servicing, and 
other growing high-tech 
career fields. If the coupon is 
y / missing, write to NRI Schools, 

3939 Wisconsin Avenue, NW, 
Washington, DC 20016. 


features the MS/DOS operating system. 
As a result, you’ll have a choice of 
thousands of off-the-shelf software pro¬ 
grams to run on your completed Sanyo. 

Your NRI course includes 
installation and troubleshooting of the 
“intelligent” keyboard, power supply, 
and disk drive, plus you’ll check out 



double density/double sided disk drive, 
and “intelligent” keyboard; the NRI 
Discovery Lab®, teaching circuit design and operations; 
a Digital Multimeter Bundled Spread Sheet and Word 
Processing Software worth over$1000 at retail—and moi 


Z SCHOOLS 

McGraw-Hill Continuing Education Center 

3939 Wisconsin Avenue, Washington, DC 20016 
We’ll give you tomorrow. 

EfCHECK ONE FREE CATALOG ONLY □ sat 

□ Computer Electronics with Microcomputers □ Con 

□ Data Communications n Indi 

□ Robotics & Industrial Controls 

□ Video Electronics Servicing 

□ Electronic Design Technology 

□ Digital Electronics 


m 


□ Basic Electronics 

□ Telephone Servicing 

□ Small Engine Servicing 

□ Appliance Servicing 


□ Automotive Servicing 


□ Locksmithing & Electronic 
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1 Dir For IBM PC/PCjr 


Arthur Leyenberger 

Requirements: IBM PC/PCjr or compati¬ 
ble with at least 128K RAM (192K recom¬ 
mended), at least one disk drive, and DOS 
2.0 or higher. 


Whether you are a casual user or a 
"power user," getting the most from 
your IBM PC or compatible requires a 
thorough understanding of how to use 
MS-DOS. But the difference between 
merely understanding how to use MS- 
DOS and really using it effectively may 
be like the difference between walking 
around the block and competing in a 
marathon. With 1 Dir from Bourbaki, 
Inc., you can easily run circles around 
MS-DOS. 

1 Dir (pronounced "wonder") 
stands for one directory. Its purpose is to 
simplify the use of MS-DOS for any¬ 
one, regardless of their level of exper¬ 
tise. It is called a shell for DOS because 
it sits between you and the operating 
system, simplifying command 
execution. 

1 Dir eliminates the DOS A> 
prompt and the need to type filenames 
and commands on the command line. 
Instead, it presents a menu screen from 
which all operations take place (see 
photo). At the top left of the screen is an 
indicator showing which directory is 
being displayed; the indicator is blank 
for your root directory. 

The rest of the screen is divided 
into seven columns grouped into three 
blocks. The first column displays the 
currently selected disk drive and a "file 
cursor"—a reverse video cursor used to 
select files from a directory. The next 
three columns list your filenames, ex¬ 
tension names, and file sizes. The fol¬ 
lowing two columns, grouped into 
another block, display the date and 
time that your files were last accessed. 
(If you like, 1 Dir can also display sys¬ 
tem and disk statistics in this area rather 
than file information.) The last column, 
separated from the others in its own 
block, contains the toggle and setup 
information. 

Sorted Directories 

Toggles such as Caps, Print, Batch, and 
Edit are highlighted in reverse video 
when turned on. You can also switch 
the Pause option on or off, select which 
drive directory is displayed by default, 
and choose from four ways to sort file 
directories (by name, extension, date, 
and size). Each time you specify a dif¬ 
ferent sort, the filenames instantly rear¬ 


range themselves on the screen. 

A horizontal block at the bottom of 
the screen contains a "command cur¬ 
sor" and nine commands: Erase, Re¬ 
name, Type, Copy, Run, Compose, 
Execute, Date, and Time. By moving 
the command cursor with the left and 
right arrow keys to the command you 
want, and then moving the file cursor 
with the up and down arrow keys to the 
filename you want, you can execute 
DOS commands without having to re¬ 
member the proper syntax. Just above 
the horizontal command block is a one- 
line area for typing commands and re¬ 
sponding to prompts. 



1 Dir makes it easier to use MS-DOS by 
organizing commands and file directories into 


Let's say you want to erase three 
files on a disk whose filenames are too 
different to permit use of a wildcard 
(which is a risky way to delete files, 
anyhow). Rather than erasing each file 
separately by typing ERASE A:FILE1. 
EXT, with 1 Dir you start by positioning 
the command cursor on the Erase com¬ 
mand and then moving the file cursor 
to the first filename you want to delete. 
Press the + key to tag that file. Then 
move the file cursor to the second and 
third filenames and tag those files by 
pressing + each time. Although you've 
tagged the files, nothing yet has hap¬ 
pened. When you press ENTER, the 
screen displays all three filenames and 
shows how many bytes will become 
available by erasing them. If you an¬ 
swer Y to the "Are you sure?" prompt, 
the files are deleted. 

The Copy command works in 
much the same way. You point to either 
an individual file to be copied or tag 
several files. Then tell 1 Dir where the 
file(s) should be copied to and press 
ENTER. If you want to copy an entire 


disk, you can tag the whole directory 
with one keystroke rather than tagging 
each file separately. You can also run 
programs simply by pointing to them 
with the file cursor, positioning the 
command cursor on Run, and pressing 
ENTER. 

Batch Files, Too 

One of the most powerful features of 
MS-DOS is its ability to execute a group 
of commands with a batch file. Unfor¬ 
tunately, creating batch files with Edlin 
(the MS-DOS line editor) can be diffi¬ 
cult, especially for novices and casual 
users. 

With 1 Dir, creating batch files is 
easy. The Batch Builder feature auto¬ 
matically compiles a batch file as you 
issue the commands. In the Batch 
Builder mode, you can use 1 Dir to 
change directories, run programs, copy 
and erase files, or do whatever you 
want. When you're done, just turn off 
the mode and 1 Dir constructs the batch 
file. 

2 Dir also lets you customize the 
command menu at the bottom of the 
screen. If you use the Batch Builder first 
to create your commands, it's easy to 
make menus corresponding to the 
batch files. You can put together cus¬ 
tomized shells in very little time. 

I've been running 1 Dir for several 
months on a two-drive AT&T 6300 
computer and have found it invaluable 
and easy to use. Although it's very use¬ 
ful on a floppy disk computer, it's even 
better if your computer has a hard disk. 
I set it up on a hard disk system ac¬ 
cessed mostly by casual users, and 
there's no question that this particular 
computer gets more use because of 1 
Dir. 

A new version of 2 Dir, promised 
to be available by the time you read 
this, is supposed to be even more pow¬ 
erful. It will have expanded color op¬ 
tions, password protection, a rewritten 
manual, the ability to rename subdirec¬ 
tories, and custom commands that 
allow abbreviations or descriptions to 
be displayed rather than actual com¬ 
mand syntax. 

Whether you're a beginner or an 
experienced user, 2 Dir can simplify 
your introduction to MS-DOS and 
make your time on the computer more 
productive. 

1 Dir 

Bourbaki, Inc. 

431 Main Street 
Boise, ID 83702 

$95 © 
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Save With Replace: 
Debugged At Last 

Part 1 

P. A. Slaymaker 


Since the early days of the Commo¬ 
dore PET in the late 1970s, a contro¬ 
versy has raged over one particular 
disk command — Save-with-Replace. 
This convenient command automati¬ 
cally replaces an existing disk file 
with a new file of the same name, 
combining SCRATCH and SAVE in 
one operation. But for years, many 
Commodore users have shunned 
Save-with-Replace like poison, 
swearing that it contains a mysterious 
bug which unpredictably scrambles 
disks. And just as many other users 
contend the bug doesn’t exist at all. 
Now, finally, there's proof: The bug 
does exist in the 1541 drive, it can be 
demonstrated, and most importantly, 
it can be avoided. This two-part arti¬ 
cle is the first full explanation of why 
the bug happens and how you can 
circumvent it. The author is the presi¬ 
dent of Quantum Software, which 
produces the Peek a Byte disk utility 
for the Commodore 64. 


It's time to settle something once 
and for all: There is a Save-with- 
Replace bug! It afflicts the Disk Op¬ 
erating System (DOS) built into 
every 1541 disk drive, potentially 
threatening every disk on which 
you use the Save-with-Replace 
command. In this two-part series, 
we'll review what the Save-with- 
Replace bug typically does; list a 
program which demonstrates the 
bug beyond doubt; explain why it 
happens; and finally, recommend a 
procedure for avoiding the bug. 

The Save-with-Replace com¬ 
mand (typed as SAVE@) has been 


accused of scrambling, swapping, 
duplicating, or overwriting disk 
files and of messing up Block Allo¬ 
cation Maps (a BAM is a map on a 
disk which keeps track of which 
blocks are storing files and which 
are free). Many computer maga¬ 
zines and other authorities in the 
Commodore community have 
warned against using SAVE@. Yet 
other Commodore experts have 
never experienced problems with 
SAVE(cp and swear the bug is an old 
hacker's tale. There are many anec¬ 
dotes about when the bug strikes, 
which files are affected, and when 
the files or BAM will be garbled. 
The mystery has persisted for so 
long because usually the bug is not 
repeatable. But this article shows 
how to replicate the bug and ex¬ 
plains why it is related primarily to 
the file length and the distribution 
of free blocks on the disk as deter¬ 
mined by the BAM. 

Recently some new evidence 
surfaced about SAVE@. In an arti¬ 
cle published in the July 1985 issue 
of The Transactor, "SAVE with Re¬ 
place Exposed!!," author Charles H. 
Whittern showed that the bug ex¬ 
ists under some conditions. This ar¬ 
ticle made some observations on 
files likely to be affected and listed 
a program which repeatedly loaded 
and saved files using SAVE@. Af¬ 
terward, an examination of the disk 
showed some files to be scrambled. 
Unfortunately, no details of the file 
configurations were given, and the 
editors admitted the bug had them 
baffled—but at least the problem 
was recognized, a first step. 


Our investigation shows that the 
bug usually occurs when the drive 
number has not been specified on pre¬ 
vious drive operations, such as load¬ 
ing a file or listing a directory. In 
other words, typing LOAD"file- 
name",8 or LOAD"$",8 instead of 
LOAD"0:filename",8 or LOAD"0: 
$",8 sets up conditions for the bug. 
The drive number 0 should be spec¬ 
ified in disk commands because, as 
we'll explain later, the SAVE(a) bug 
is related to the phantom software 
drive 1 in the 1541. In addition, the 
bug tends to bite disks on which 
many files have been scratched and 
rewritten. This leaves gaps on the 
disk so that a file is scattered over 
many tracks. These gaps do not 
normally cause a problem if you 
specify the drive number in disk 
commands. 

Therefore, the key to avoiding 
the SAVE@ bug is to always specify 
drive 0 when performing any disk 
drive function, or to always reset the 
drive before any SAVE@ operation. 
Resetting the drive requires either 
turning the drive off and then on, or 
sending a reset command (OPEN15, 
8,15,"UJ"). 

Demonstrating The Bug 

At this point, some of you might be 
skeptical that the SAVE@ bug real¬ 
ly exists. To prove that it does, the 
accompanying program formats a 
new disk with the single file 
"SAVE@ DEMO" and alters the 
BAM to simulate a partially used 
disk with a gap due to scratched 
files. Follow these instructions 
carefully: 
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COMPUTE! Back Issues 


Here are some of the applications, 
tutorials, and games from available 
back issues of COMPUTE!. Each 
issue contains much, much more 
than there's space here to list, but 
here are some highlights: 


May 1981: Named GOSUB/GOTO 
in Applesoft, Generating Lower 
Case Text on Apple II, Copy Atari 
Screens to the Printer, Disk Direc¬ 
tory Printer for Atari, Realtime 
Clock on Atari, PET BASIC Delete 
Utility, PET Calculated Bar Graphs, 
Running 40 Column Programs on a 
CBM 8032, A Fast Visible Memory 
Dump, Cassette Filing System, Get¬ 
ting To A Machine Language Pro¬ 
gram, Epidemic Simulation. 

June 1981: Computer Using 
Educators (CUE) on Software Pric¬ 
ing, Apple II Hires Character Gen¬ 
erator, Ever Expanding Apple 
Power, Color Burst for Atari, Mix¬ 
ing Atari Graphics Modes 0 and 8, 
Relocating PET BASIC Programs, 
An Assembler In BASIC for PET, 
Quadra PET: Multitasking?, Map¬ 
ping Unknown Machine Language, 
RAM/ROM Memory, Keeping 
TABs on a Printer. 

July 1981: Home Heating and 
Cooling, Animating Integer BASIC 
Lores Graphics, The Apple Hires 
Shape Writer, Adding a Voice Track 
to Atari Programs, Machine Lan¬ 
guage Atari Joystick Driver, Four 
Screen Utilities for the PET, Saving 
Machine Language Programs on 
PET Tape Headers, Commodore 
ROM Systems, Using TAB, SPC, 
And LEN. 

August 1981: Minimize Code and 
Maximize Speed, Apple Disk Motor 
Control, A Cassette Tape Monitor 
for the Apple, Easy Reading of the 
Atari Joystick, Blockade Game for 
the Atari, Atari Sound Utility, The 
CBM "Fat 40," Keyword for PET, 
CBM/PET Loading, Chaining, and 
Overlaying, Adding A Program¬ 
mable Sound Generator, Converting 
PET BASIC Programs To ASCII 
Files. 


October 1981: Automatic DATA 
Statements for CBM and Atari, VIC 
News, Undeletable Lines on Apple, 
PET, and VIC; Budgeting on the 
Apple, Atari Cassette Boot-tapes, 
Atari Variable Name Utility, Atari 
Program Library, Train Your PET to 
Run VIC Programs, Interface a BSR 
Remote Control System to PET, A 
General Purpose BCD to Binary 
Routine, Converting to Fat-40 PET. 

December 1981: Saving Fuel $$ 
(multiple computers). Unscramble 
Game (multiple computers). Maze 
Generator (multiple computers). 
Animating Applesoft Graphics, A 
Simple Atari Word Processor, Add¬ 
ing High Speed Vertical Positioning 
to Atari P/M Graphics, OSI 
Supercursor, A Look At SuperPET, 
Supermon for PET/CBM, PET Mine 
Maze Game, Replacing The INPUT 
# Command, Foreign Language 
Text on The Commodore Printer, 
File Recovery. 


January 1982: Invest (multiple 
computers). Developing a Business 
Algorithm (multiple computers), 
Apple Addresses, Lowercase with 
Unmodified Apple, Cryptogram 
Game for Atari, Superfont: Design 
Special Character Sets on Atari, 

PET Repairs for the Amateur, 
Micromon for PET, Self-modifying 
Programs in PET BASIC, Tinymon: 
A VIC Monitor, VIC Color Tips, 
VIC Memory Map, ZAP: A VIC 
Game. 

May 1982: VIC Meteor Maze Game, 
Atari Disk Drive Speed Check, 
Modifying Apple's Floating Point 
BASIC, Fast Sort For PET/CBM, 
Extra Atari Colors Through 
Artifacting, Life Insurance Estimator 
(multiple computers), PET Screen 
Input, Getting The Most Out Of 
VIC's 5000 Bytes. 

August 1982: The New Wave Of 
Personal Computers, Household 
Budget Manager (multiple comput¬ 
ers), Word Games (multiple 
computers). Color Computer Home 
Energy Monitor, A VIC Light Pen 
For Under $10, Guess That Animal 
(multiple computers), PET/CBM 


Inner BASIC, VIC Communications, 
Keyprint Compendium, Animation 
With Atari, VIC Curiosities, Atari 
Substring Search, PET and VIC 
Electric Eraser. 


September 1982: Apple and Atari 
and the Sounds of TRON, Com¬ 
modore Automatic Disk Boot, VIC 
Joysticks, Three Atari GTIA Arti¬ 
cles, Commodore Disk Fixes, The 
Apple PILOT Language, Sprites and 
Sound on the Commodore 64, 
Peripheral Vision Exerciser (mul¬ 
tiple computers). Banish INPUT 
Statements (multiple computers). 
Charades (multiple computers), PET 
Pointer Sort, VIC Pause, Mapping 
Machine Language, Commodore 
User-defined Functions Defined, A 
VIC Bug. 

January 1983: Sound Synthesis And 
The Personal Computer, Juggler 
And Thunderbird Games (multiple 
computers). Music And Sound Pro¬ 
grams (multiple computers), Writing 
Transportable BASIC, Home Energy 
Calculator (multiple computers). 

All About Commodore WAIT, 
Supermon 64, Perfect Commodore 
INPUTS, VIC Sound Generator, 
Copy VIC Disk Files, Commodore 
64 Architecture. 

May 1983: The New Low-Cost 
Printer/Plotters, Jumping Jack (mul¬ 
tiple computers). Deflector (multiple 
computers), VIC Kaleidoscope, 
Graphics on the Sinclair/Timex, 
Bootmaker For VIC, PET' and 64, 
VICSTATION: A "Paperless Of¬ 
fice," The Atari Musician, Puzzle 
Generator (multiple computers). In¬ 
stant 64 Art, 64 Odds And Ends, 
Versatile VIC Data Acquisition, 

POP For Commodore. 

June 1983: How To Buy The Right 
Printer, The New, Low-Cost Print¬ 
ers, Astrostorm (multiple comput¬ 
ers), The Hawkmen Of Dindrin 
(multiple computers), MusicMaster 
For The Commodore 64, Com¬ 
modore Data Searcher, Atari 
Player/Missile Graphics Simplified, 
VIC Power Spirals, UnNEW For 
The VIC and 64, Atari Fast Shuffle, 
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COMPUTE! Back Issues 


VIC Contractor, Commodore 
Supermon Q & A. 

July 1983: Constructing The Ideal 
Computer Game, Techniques For 
Writing Your Own Adventure 
Game, SpeedSki And Time Bomb 
(VIC), Castle Quest And Roadblock 
(Atari), RATS! And Goblin (64), 
How To Create A Data Filing Sys¬ 
tem (multiple computers). How To 
Back Up Disks For VIC And 64, 
Atari Artifacting, All About The 
Commodore USR Command, TI. 
Mailing List. 

August 1983: Weather Forecaster 
(multiple computers). First Math 
And Clues (multiple computers). 
Converting VIC And 64 Programs 
To PET, Atari Verify, Apple 
Bytechanger, VIC And 64 Escape 
Key, Banish Atari INPUT State¬ 
ments, Mixing Graphics Modes On 
The 64, VlCplot, VIC/64 Transla¬ 
tions: Reading The Keyboard, Musi¬ 
cal Atari Keyboard, VIC Display 
Messages. 

September 1983: Games That 
Teach, Caves Of. Ice, Diamond 
Drop, Mystery Spell, and Dots 
(multiple computers), VIC Pilot, 
Ultrasort (VIC, 64, PET), Easy Atari 
Page Flipping, Computer Aided De¬ 
sign On The TI, Relative Files On 
the VIC/64, Atari Fontbyter, TI 
Sprite Editor, All About Interrupts 
(multiple computers). Cracking The 
64 Kernal, Making Change On The 
Timex/Sinclair, Build Your Own 
Random File Manager (multiple 
computers). 

October 1983: Computer Games By 
Phone, Coupon File (multiple 
computers). Dragon Master And 
Moving Maze (multiple computers). 
Merging Programs From Com¬ 
modore Disks, Atari Master Disk 
Directory, Sprites In TI Extended 
BASIC, Commodore EXEC, Multi¬ 
color Atari Character Editor, High 
Speed Commodore Mazer, Apple 
Sounds, Extra Instructions (multiple 
computers). Commodore DOS 
Wedges, Invisible Disk Directory 
For VIC And 64. 

February 1984: What Makes A 


Good Game, Circus (multiple com¬ 
puters), Quatrainment (multiple 
computers). Commodore 3-D Draw¬ 
ing Master (Apple version also in¬ 
cluded), Speedy BASIC For VIC 
And 64, Dr. Video 64. 

March 1984: All About Adding 
Peripherals, Modem Memory: The 
Future Of Storage Devices, Roader 
(multiple computers). Barrier Battle 
(multiple computers). Programming 
The TI: File Processing, Sound 
Shaper (multiple computers). Com¬ 
modore Floating Subroutines, Big 
Buffer For Atari. 

April 1984: Apple's Macintosh Un¬ 
veiled, Securities Analysis (multiple 
computers). Worm Of Berner (mul¬ 
tiple computers). Programming The 
TI: File Processing, Part 2, 
1540/1541 Disk Housekeeping, 
Hidden Atari DOS Commands, 
Function Keys For The Apple, TI 
Tricks And Tips, Super Directory 
(multiple computers). 

May 1984: The Digital Palette: Fun¬ 
damentals Of Computer Graphics, 
The Inside Story: How Graphics 
Tablets And Light Pens Work, Pic¬ 
ture Perfect For Atari And Com¬ 
modore 64, 64 Hi-Res Graphics 
Editor, Snertle (multiple comput¬ 
ers), Pentominos: A Puzzle-Solving 
Program (multiple computers), A 
BASIC Cross-Reference (PET, 64). 

June 1984: Choosing The Right 
Printer: The Easy Way To Hard 
Copy, Pests (multiple computers). 
Olympiad (multiple computers). 
Programming The TI: TI Graphics, 
MacroDOS For Atari, Part 1, Apple 
Variable Save, Programming 64 
Sound, Part 1, Apple Input And 
Menu Screens. 

July 1984: Evolutionary To The 
Core: The Apple lie Heads For 
Home, The ABC's Of Data Bases, 
Statistics For Nonstatisticians (mul¬ 
tiple computers). Bunny Hop (mul¬ 
tiple computers). Blueberries 
(multiple computers). Atari Artist, 
Applesoft Lister, Program Conver¬ 
sion With Sinclair BASIC And TI 
BASIC, Commodore 64 ROM 
Generations. 


September 1984: New Trends In 
Educational Computing, Choosing 
The Best Educational Software, 
Missile Math (multiple computers), 
Lightsaver (multiple computers). 
Multiple Choice Quiz Generator 
(multiple computers). Lightning Sort 
(multiple computers). Commodore 
Autoboot, Apple Editing Hints, 
Atari Paddle Fixer, Musical TI 
Keyboard. 

January 1985: VIC/64 TurboTape: 
tape at disk speeds. Music In The 
Computer Age, Inside MSX, Para¬ 
trooper (multiple computers). Res¬ 
cue Of Blondell (Commodore/ 
Atari), Guitar Tuner (multiple 
computers). Which Computer Lan¬ 
guage Is Best?, Machine Language 
Multiplication, Part 1, Enhanced 
Applesoft Input, Atari Terminal 
Program, IBM Pie Chart Maker. 

February 1985: Special Games Is¬ 
sue, The New Atari, Fame Games, 
Birth Of A Computer Game, Ac¬ 
robat (multiple computers). Termi¬ 
nal Program For VIC & 64, 
Programming The TI Without A 
Math Background, Adding Sound 
Effects To Atari, Rebound: Machine 
Language IBM Game, Apple Bowl¬ 
ing Champ, 64 Sound Effects. 


Back issues are $6 each. Price in¬ 
cludes freight in the US. Outside 
the US add $1 per magazine or¬ 
dered for surface postage, $4 per 
magazine for air mail postage. 

All back issues subject to 
availability. 

In the Continental US call 
TOLL FREE 800-334-0868 
(919-275-9809 in NC) 

Or write to: 

COMPUTE! Back Issues 
P.O. Box 5058 

Greensboro, NC 27403 USA 

Prepayment required in US 
funds. 

MasterCard, Visa, and 
American Express accepted. 

NC residents add 4.5% sales tax. 
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1. The program is for the Commo¬ 
dore 64. For the VIC-20, change 
these lines: 

10 POKE 36879,8 :rem 5 

100 IF K<> 39 THEN 90s REM WAIT 
FOR FI srem 154 

150 IF K=ll THEN 170: REM CONT 

INUE IF <Y> srem 187 

For the Plus/4 and 16, change 
these lines: 

10 COLOR 0,1sCOLOR 4,1srem 133 
340 POKE 239,0: REM CLEAR KEYB 
OARD BUFFER srem 80 

5000 POKE239.0sPOKE198,64: REM 
CLEAR KEYBOARD BUFFER 

srem 31 

5010 K=PEEK(198) srem 102 

Type the program exactly as list¬ 
ed—including all uppercase 
REM statements (the lowercase 
rem statements are checksums 
for COMPUTERS "Automatic 
Proofreader"; do not type them 
in). It's important to type the 
program as listed because it 
must be at least nine blocks long 
on the test disk to insure proper 
results. 

2. Save the program on another 
disk before running it. 

3. Put a blank test disk in the drive 
and run the program. It will for¬ 
mat the disk and save a file 
called SAVE@ DEMO on the 
disk. Type LOAD"$",8 to list the 
directory and notice that 254 
blocks are free. 

4. Reset the drive by turning it off, 
then on. Load the file by typing 
LOAD"SAVE@ DEMO",8. 

5. Save the file three times using 
the SAVE@ command 
(SAVE"@0: SAVE@ DEMO",8). 
Do not list the directory or per¬ 
form any other operation be¬ 
tween SAVE@ commands. 

6. List the directory by typing 
LOAD"$",8. What's this? There 
were 254 blocks free before, but 
now there are 258—a discrep¬ 
ancy of four blocks. (If you don't 
get this result, it probably 
means that you haven't fol¬ 
lowed the directions exactly. 
Start again at step 3.) If you 
examine the BAM with a disk 
utility, you'll see that the first 
four sectors of the file are 
marked as free! (Specifically, the 
file starts on track 17, block 0; 
blocks 0 through 3 are marked 


as unallocated.) If you executed 
a fourth SAVE@ command, it 
would overwrite the beginning 
of the file, and the disk would be 
corrupted even worse! 

7. Now rerun the program to make 
a new test disk. Reset the drive 
and run the above test again, but 
specify the drive number for the 
load (LOAD"0:SAVE@ 
DEMO",8). The SAVE@ bug 
does not occur! 

Always Specify Drive 0 

This demonstration provides a 
powerful lesson: All DOS com¬ 
mands should include the drive 
number 0: 

LOAD"0:filename",8 (Load file) 
SAVE"0:filename",8 (Save file) 
SAVE"@0:filename",8 (Save with Replace) 
LOAD"$0",8 (Load directory) 
LOAD"$0:filename",8 (Load directory 
entry with filename) 
OPEN15,8,15,"IO":CLOSE15 (Initialize 
drive 0) 

OPEN15,8,I5,"VO":CLOSE15 (Validate 
BAM) 

Similarly, all disk file com¬ 
mands should specify the drive 
number. 

Most Commodore users do not 
specify the drive number when 
loading the directory or files. The 
1541 User's Manual examples for 
the LOAD command don't specify 
the drive, and neither do most mag¬ 
azine articles. If the drive number is 
not specified, the 1541 is supposed 
to default to drive 0. What actually 
happens very often causes an error 
message such as 74,DRIVE NOT 
READY,00,00. For a simple ex¬ 
ample, use the DOS 5.1 Wedge that 
comes with the 1541. List the direc¬ 
tory for the file "TEST" on the 1541 
Test/Demo disk by using the Wedge 
command: 

>$TEST (list directory for files "TEST") 
Since this file doesn't exist on 
the Test/Demo disk, the red error 
light begins blinking. This com¬ 
mand should include the drive 
number, but is accepted without it. 
Now repeat the command and read 
the error channel with this Wedge 
command: 

> (read error channel) 

The error will be 74,DRIVE 
NOT READY,00,00. Repeat this 
test, but specify the drive number: 
>$0:TEST (List directory with drive 
specified) 


No matter how many times 
this command is repeated, no er¬ 
ror will occur. 

The Missing Drive 

Part 2 in next month's COMPUTE! 
will present a full technical expla¬ 
nation of the SAVE@ bug. For those 
who aren't so technically inclined, 
here's a brief summary. 

The early Commodore PETs 
were available with dual disk 
drives—two drives in one unit. The 
drives were addressed as 0: and 1: 
when using disk commands. But on 
later Commodore computers de¬ 
signed to use the 1540/1541, multi¬ 
ple drives are addressed by 
changing the device number, not the 
drive number. The device number 
for a single drive is 8. That's why 
you type a command like LOAD 
"filename",8. On two-drive sys¬ 
tems, the second drive is usually 
addressed as device 9, as in LOAD 
"filename'',9. Therefore, most peo¬ 
ple stopped (or never started) speci¬ 
fying the drive number, which is 0: 
for all 1541 disk drives. Drive 1: 
simply doesn't exist with the 1541. 

What happens when the drive 
number is not specified for a LOAD 
or SAVE? DOS first checks for a 
drive number. If none is specified, it 
assumes drive 0. Okay so far. Then 
DOS attempts to read the disk. If no 
disk is found, DOS automatically 
switches to the nonexistent drive 1. 
A DRIVE NOT READY error then 
results whether or not a drive num¬ 
ber was specified. If a disk is found, 
DOS searches its internal directory 
for the specified file. If the default 
drive was used, DOS switches to 
drive 1 to continue searching. This 
also causes the DRIVE NOT 
READY error, since there is no drive 
1. Furthermore, drive 1 remains the 
default drive as long as there are 
directory searches to be done. The 
internal drive pointers must be re¬ 
set to recover from this error 
condition. 

SAVE@ always works properly 
in our tests if the drive number is 
specified on all operations and no 
direct access buffers are allocated. 
We are not aware of anyone who 
has documented a failure under 
these conditions (assuming a closed 
file was specified, sufficient room 
was present on the disk, and no 
read or write errors occurred). Thus, 
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Commodore experts who claim 
there is no bug are partially correct. 
We have also found that if the drive 
number is not always specified dur¬ 
ing loads and directory listings, as is 
common practice, the SAVE@ bug 
can occur even though the drive 
number is specified in the SAVE@ 
command. 

Files stored on just one or two 
tracks—such as short files on a 
fresh disk—are not prone to the 
SAVE@ bug. Files stored over 
many tracks on disks on which 
many files have been saved and 
scratched are the most susceptible, 
as are files saved with some utilities 
intended to speed up the 1541 disk 
drive. 

Next month: Part 2 examines the 
technical reasons for the Save-with- 
Replace bug in more detail. Our spe¬ 
cial thanks to Jim Gracely of 
Commodore and Associate Editor Jim 
Butterfield for very helpful 
discussions. 

SAVE@ Bug Demonstration 

For instructions on entering this listing, please 
refer to "COMPUTE!'s Guide to Typing In 
Programs" published bimonthly in COMPUTE!. 

10 POKE 53281,0:POKE 53280,11 
:rem 232 

20 PRINT"{CLR}";CHR$(14)CHR?(8 
) :rem 66 

30 PRINT"{YEL}{RIGHT}{RVS} SAV 
E@ BUG EXAMPLE " :rem 90 

40 PRINT"{CYN}{DOWN} THIS PROG 
RAM FORMATS":PRINT"A BLANK 
{SPACEjDISK, ALTERS" 

:rem 167 


» :rem 149 

60 PRINT" BAM AGAINPRINT" 

{DOWN} SAVE® WILL FAIL THE" 
:rem 213 

70 PRINT"THIRD TIME IT IS USED 
":PRINT"ON THIS DISK." 

srem 133 

80 PRINT"{DOWN}{RIGHT}{GRNjlNS 
ERT DISK TO FORMAT - PRESS 
{SPACE}{RVS} FI {OFF}." 

:rem 116 

90 GOSUB 5000: REM GET KEYPRES 
S :rem 34 

100 IF K< >4 THEN 90: REM WAIT 
{SPACE}FOR FI :rem 98 

110 PRINT"{DOWN}{RED}WARNING 1 
{SPACE}THE DISK WILL BE ER 
ASED." :rem 116 

120 PRINT"{DOWN}{RIGHT}{YEL}AR 
E YOU SURE?":PRINT"(PRESS 
{SPACE}{RVS}Y{OFF} TO CONT 
INUE.)" :rem 31 

130 FOR T=0 TO 100 :NEXT: REM T 
IME DELAY :rem 165 

140 GOSUB 5000: REM GET KEYPRE 
SS :rem 78 

150 IF K=25 THEN 170: REM CONT 
INUE IF <Y> :rem 192 


170 CLOSE2:CLOSE15: REM 

{2 SPACES}CLOSE CHANNELS 

:rem 54 

180 OPEN15,8,15: REM OPEN COMM 
AND CHANNEL :rem 111 

190 PRINT"{DOWN}{RIGHT}{CYNjNO 
W FORMATTING DISK - PLEASE 
WAIT." :rem 28 

200 PRINT#15,"N0sSAVE@ TEST"CH 
R?(44)"PS": REM FORMAT DIS 
K :rem 50 

210 GOSUB 3000: REM CHECK ERRO 
R CHANNEL :rem 213 

220 PRINT"{UP}{RIGHT}{PURjFORM 
ATTING COMPLETED. 

{2 SPACES}{3 SHIFT-SPACE} 
{8 SPACES}" :rem 213 

230 PRINT"{DOWN}{RIGHT}ALTERIN 
G BAM ." :rem 232 

240 GOSUB 4010: REM OPEN DIREC 
T CHANNEL AND CHECK ERROR 
{SPACE}CHANNEL :rem 147 

250 GOSUB 1010: REM ALTER BAM 

260 CLOSE2:CLOSE15: REM CLOSE 
{SPACE}CHANNELS :rem 54 

270 PRINT"{DOWN}{RIGHT}{RED}SA 
VING SAVE ® DEMO." :rem 190 
280 SAVE"0:SAVE® DEMO",8 

:rem 111 

290 PRINT"{DOWN}{RIGHT}{YEL}AL 
TERING BAM." :rem 140 

300 GOSUB 4000: REM OPEN DIREC 
T CHANNEL AND CHECK ERROR 
{SPACE}CHANNEL :rem 143 
310 GOSUB 2010: REM ALTER BAM 
:rem 61 

320 PRINT"{DOWN}{RIGHT}{CYN} 

{TAB}DISK IS FINISHED! NOW 
REFER TO TEXT." :rem 236 
330 CLOSE2:CLOSE15: REM CLOSE 
{SPACE}CHANNELS :rem 52 
340 POKE 198,0: REM CLEAR KEYB 
OARD BUFFER :rem 84 

350 END :rem 111 

1000 REM * MODIFY BAM SECTOR F 
OR SAVE :rem 77 

1010 PRINT#15,"U1:2 0 18 0":GO 
SUB 3000: REM READ BAM SE 
CTOR :rem 90 

1020 PRINT#15,"B-P:2 52“:GOSUB 
3000: REM POSITION BUFFE 
R POINTER TRACK 13 

:rem 159 

1030 FOR 1=1 TO 20:PRINT#2,CHR 
$(0);:NEXT: REM FILL BAM 
{SPACE}WITH ZEROS:rem 201 
1040 PRINT#15,"B—P:2 76":GOSUB 
3000: REM POSITION BUFFE 
R POINTER TRACK 19 

:rem 173 

1050 FOR 1=25 TO 92:PRINT#2,CH 
R?(0);:NEXT: REM FILL BAM 
WITH ZEROS :rem 10 

1060 PRINT#15,"U2:2 0 18 0":GO 
SUB 3000: REM WRITE TO BA 
M SECTOR :rem 114 

1070 PRINT#15, "I0":GOSUB 3000: 
REM INITIALIZE BAM 

:rem 36 

1080 RETURN :rem 169 

2000 REM * MODIFY BAM SECTOR A 

FTER SAVE :rem 217 

2010 PRINT#15,"U1:2 0 18 0":GO 

SUB 3000: REM READ BAM SE 
CTOR :rem 91 

2020 PRINT#15,"B—P:2 60":GOSUB 
3000: REM POSITION BUFFE 


R POINTER TRACK 15 

srem 161 

REM FREE UP 12 SECTORS ON 
TRACKS 15 TO 17 :rem 204 
PRINT#2,CHR$(4)CHR?(15)CH 
R?(0)CHR$(0); :rem 81 

P RINT# 2,CHR?(4)CHR?(15)CH 
R?(0)CHR?(0); :rem 82 

PRINT# 2,CHR?(4)CHR?(15)CH 
R?(0)CHR?(0); :rem 83 

PRINT#15,"U2:2 0 18 0":GO 
SUB 3000: REM WRITE TO BA 
M SECTOR srem 116 

PRINT#15,"10":GOSUB 3000s 
REM INITIALIZE BAM 

srem 38 
i 171 

srem 185 

J IF EN=0 OR EN=73 THEN RET 
URN :rem 61 

J PRINT"{2 DOWN}{RIGHT}"EN; 

E?;ET;ES srem 179 

1 CLOSE2:CLOSE15:END 

srem 149 

) OPEN15,8,15:GOSUB3000: RE 
M OPEN COMMAND CHANNEL AN 
D CHECK ERROR srem 210 
J OPEN2,8,2, 11 #" :GOSUB3000 : 
{SPACE}REM OPEN DIRECT CH 
ANNEL AND CHECK ERROR CHA 
NNEL srem 179 

) RETURN srem 166 

I POKE198,0s POKE203,64 s REM 
CLEAR KEYBOARD BUFFER 


K=PEEK(203) 

IF K=64 THEN 5010 
RETURN : 


l 22 


IT MUST BE 

MAGIC! 

AFFORDABLE COMPUTER ACCESSORIES 

by MAGITRONIC© 


»C NOTCHER 

AD CLEANER Kll 


GENDER CHANGERS 


SMARTEAM MODEM -11 


W OTHER CABLES & ACCESSORIES AVAILABLE ★ 


LET YOUR COMPUTER DO THE TALKING 




















Dynamic Keyboard For 
Commodore Machines 

Part 1 

Jim Butterfield, Associate Editor 


Dynamic keyboard techniques let you 
perform tasks that would otherwise be 
difficult or impossible in BASIC. The 
first article in this two-part series 
covers the fundamentals. In Part 2, 
we'll look at more advanced uses of 
the dynamic keyboard. 


Many BASIC commands can be 
used in either direct mode (typed 
directly on the keyboard without a 
line number) or program mode (as 
part of a program). Certain com¬ 
mands, however, work only in di¬ 
rect mode. Using them in a program 
requires the dynamic keyboard tech¬ 
nique, which lets a program act like 
it's you—typing commands on the 
keyboard. This method is especially 
effective on Commodore machines 
because of their full-screen editing. 
The term dynamic keyboard was first 
used by Mike Louder in 1978, 
though the technique had been 
used previously by Larry Tessler to 
merge programs. 

Direct Versus Programmed 

A direct-mode command doesn't 
have a line number and is executed 
as soon as you press RETURN. An 
example is PRINT “HELLO". In 
program mode, the command does 
have a line number and is executed 
only when you type RUN and then 
press RETURN. An example is 10 
PRINT “HELLO". Most BASIC 


commands work in both direct and 
program mode. 

A few BASIC commands can¬ 
not be used in direct mode, how¬ 
ever; they may appear only in a 
program. GET, INPUT, GET#, and 
INPUT# are the best-known of 
these. Usually these commands use 
a segment of memory called the 
input buffer to store data as it ar¬ 
rives, and they won't work in direct 
mode because the same input buff¬ 
er is used to hold the command 
itself. Thus, the incoming data 
might overwrite the command you 
typed in. An easy way to see this 
conflict is to use GOSUB as a direct 
command, calling a routine that 
does input. Try the following sim¬ 
ple program: 

300 INPUT "YOUR NAME";N$ 

330 RETURN 

Execute this routine by typing 
GOSUB 300 and pressing RE¬ 
TURN. The subroutine will ask 
YOUR NAME?. If you reply with a 
one-character name, such as X, 
everything works fine. The RE¬ 
TURN takes you back to the key¬ 
board, and the computer reports 
READY. But if you reply with a 
longer name such as CHARLOTTE, 
you may get a strange error mes¬ 
sage. Why? Your original command 
GOSUB 300 is still sitting in the 
input buffer. When the subroutine 
ends, the system looks beyond the 


GOSUB command to see what 
comes next. We expect it to find an 
end-of-command marker and quit. 
But the GOSUB command has been 
destroyed. It was overwritten by 
the name you typed in, which went 
to the same input buffer. The result 
is confusion. 

On the other hand, some 
BASIC commands can be used only 
in direct mode—not in a program. 
CONT, for example, causes an in¬ 
definite pause when used in a pro¬ 
gram. LIST works in program 
mode, but on most Commodore 
computers the program ends after 
executing LIST. In direct mode, you 
can enter a program line to add to 
the program or change it. You can't 
do this while running a program. 
Again, there's a difference between 
programs and direct commands— 
they have different powers. 

A very important difference is 
found in the LOAD command. If 
typed as a direct command, LOAD 
fills memory with a new program 
from tape or disk. If there was al¬ 
ready a program in memory, it van¬ 
ishes and its variables are thrown 
away. But a LOAD command exe¬ 
cuted within a program is quite dif¬ 
ferent. The new program comes in, 
but' existing variables are not 
scrapped—they are preserved so 
that the new program can use them. 
This is a powerful programming 
technique called chaining, which 
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lets one program continue process¬ 
ing data that was generated by a 
previous program. 

Invisible Fingers 

Direct keyboard statements can 
perform certain tasks that programs 
can't (at least, not in the usual way). 
For example, if we want a program 
to invite a student to type in a for¬ 
mula, BASIC doesn't allow the for¬ 
mula to be evaluated (an INPUT 
statement won't evalute the formu¬ 
la 2 + 2 as 4). 

Similarly, suppose we want 
one program—perhaps a main 
menu program—to load and run 
another program. That's hard to do 
because BASIC wants to chain the 
new program to the old one. In¬ 
stead of starting the next program 
fresh, it tries to make it a continua¬ 
tion of the previous program. On 
rare occasions, there may be a real 
need to allow a program to change 
itself, although this is tricky be¬ 
cause every time you change a pro¬ 
gram (by editing a line, etc.), its 
variables go away. It's hard for any 
program to continue running after 
its variable values disappear. 

We can accomplish these 
things, however, by using a star¬ 
tling technique: making the com¬ 
puter type on its own keyboard. How 
can a computer do this? It doesn't 
even have any fingers. 

Here's how it works. When 
you strike a key, the information 
always goes first to a memory area 
called the keyboard buffer. After it 
gets there, it is picked up and used 
by the computer. If we can put a 
character in the keyboard buffer 
without actually pressing any keys, 
it will appear to have been typed, 
and the computer responds exactly 
as if the corresponding key was 
pressed. 

Self-Keying 

Let's try a quick example to see how 
it works. The keyboard buffer is 
located in different places on differ¬ 
ent computers, so the commands 
must be tailored to the machine 
involved. We'll ask the machine to 
self-type the letter X: 

For VIC-20 or Commodore 64: 

POKE 198,1SPOKE631,88 

For Plus/4 or 16: 

POKE 239,1:POKE 1319,88 


For PET/CBM (3.0 and 4.0 BASIC): 

POKE 158,1sPOKE 623,88 

For Original ROM PETs: 

POKE 525,1:POKE 527,88 

For Commodore B-128 (Model 700) 

BANK 15:POKE 209,1:POKE 939, 

88 

The first POKE in each line 
tells the computer how many char¬ 
acters are waiting in the keyboard 
buffer. The second puts the charac¬ 
ter X in the first slot of the buffer. 
After you type the line and press 
RETURN, the computer reports 
READY and acts as if you pressed 
the X key. The letter X appears on 
the screen and the cursor flashes to 
its right. It would be easier just to 
type the X, of course, but we've 
established a new capability. A pro¬ 
gram can now, in effect, type on the 
keyboard. 

Using The Screen 

With this technique alone, you're 
limited to pretty short commands. 
The keyboard buffer usually has a 
size limit of about nine characters. 
Also, it's cumbersome for a pro¬ 
gram to put characters into the buff¬ 
er one at a time. But on 
Commodore machines we can take 
advantage of screen editing to pro¬ 
cess longer direct commands. 

Whenever you press the RE¬ 
TURN key, the computer reads the 
screen. Whatever it finds there, it 
does—perform a command, enter a 
line, or whatever. To make a pro¬ 
gram execute a long direct-mode 
command, follow these steps: 

1. PRINT the command on the 
screen in a known place. 

2. Position the cursor a couple of 
lines above the command. 

3. Put a carriage return in the key¬ 
board buffer. 

4. Terminate execution with an 
END command. 

When the program reaches 
END, here's what happens. The de¬ 
sired command is on the screen and 
the RETURN is in the keyboard 
buffer. The program terminates, 
and the computer prints READY. 
Although the program has ended, 
the computer receives the RETURN 
as if you had just pressed that key. 


so it executes the line on the screen. 
Among other things, that line 
might contain a GOTO or CONT 
that would continue the program. 

A Simple Example 

Here's a simple program that uses 
the dynamic keyboard method to 
do something normally forbidden 
by BASIC: a computed GOTO. In 
most cases, a straightforward ON- 
GOTO command does the same job 
better, but let's use this example for 
the sake of simplicity. Type in line 
100 as shown for your machine: 
For VIC-20 or Commodore 64: 

100 DATA 198,631 

For Plus/4 or 16: 

100 DATA 239,1319 

For most PET/CBM: 

100 DATA 158,623 

Now enter the following lines: 

110 READ A, B 

120 PRINT "PICK A NUMBER 3 TO 
{SPACE)5" 

130 INPUT "NUMBER";L 

140 IF L<3 OR L>5 THEN 130 

150 PRINT CHR$(147) 

160 PRINT 
170 PRINT 

180 PRINT "GOTO";L*100 
190 PRINT CHR$(19) 


The program isn't finished, but 
you might like to see what we have 
so far. If you run it and enter 3 in 
response to the prompt, you'll find 
the program stopped with the cur¬ 
sor blinking over a line that says 
GOTO 300. To execute that direct 
command, all you'd need to do is 
press RETURN. When we complete 
the program, it will press RETURN 
by itself. Finish the program by en¬ 
tering these lines: 

200 POKE a, l 
210 POKE B,13 
220 END 

300 PRINT "THIS IS LINE 300" 

310 GOTO 120 

400 PRINT "HERE’S 400” 

410 GOTO 120 

500 PRINT "LINE 500 IS THE END 

It's as easy as that. Once you 
grasp the basic method, all sorts of 
interesting applications come to 
mind. Next time, we'll look at more 
advanced, useful applications of 
the dynamic keyboard technique. 

© 
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All About 
IBM Batch Files 

Part 2 


Part 1 of this article (COMPUTE!, Sep¬ 
tember 1985) covered the fundamen¬ 
tals of batch programming on the IBM 
PC/PCjr. This month we'll look at 
some advanced techniques and a util¬ 
ity that makes batch programs inter¬ 
active and easier to use. 


As we saw last month, IBM batch 
programs can be very powerful. 
The batch commands FOR, IF, and 
GOTO permit program loops, con¬ 
ditional tests, and program branch¬ 
ing. You can also chain two or more 
batch programs together and pass 
information from one to another. 

But batch programs have limi¬ 
tations, too. Visual displays are 
often unexciting, consisting of single¬ 
color alphanumerics (no graphics 
characters, etc.), and user input is 
even more restricted. The PAUSE 
command allows only two options: 
continuing after the pause or end¬ 
ing the program. This virtually 
rules out complex, interactive pro¬ 
grams that let you select from sev¬ 
eral different options to perform 
various tasks. 

Adding Choices 

The "CHOOSE.COM” program 
below provides the equivalent of a 
new batch command. As the name 
suggests, CHOOSE lets you make a 
choice. It can be used by itself to 
request a yes/no response, or with 
additional information to offer sev¬ 


G. Russ Davies 


eral different options. Since 
CHOOSE.COM is a machine lan¬ 
guage program, we've included a 
BASIC filemaker program that cre¬ 
ates it for you. Type in and save 
Program 1 as listed below, then run 
it. Once that's done, you can try out 
the simpler "yes/no" form of 
CHOOSE. 

Remember from Part 1 that 
any batch program named AUTO¬ 
EXEC.BAT loads and runs automat¬ 
ically when you boot the system. 
An AUTOEXEC.BAT program that 
doesn't include the DOS com¬ 
mands DATE and TIME won't 
prompt you to enter the date and 
time (as normally happens when 
you boot up). Though it's often 
valuable to have correct date and 
time information on new files, there 
are also many times when you 
don't need it. 

The short batch program that 
follows lets you choose whether to 
add date and time settings. Enter it 
as listed, using the EDLIN program 
(on the DOS Supplemental Programs 
disk) or any word processor or text 
editor that produces standard 
ASCII output. Since this and the 
following examples are not BASIC 
programs, don't try to enter them 
with computers "IBM Automatic 
Proofreader." Once you have en¬ 
tered this program, save it with the 
filename AUTOEXEC.BAT. Be¬ 
cause the program calls CHOOSE- 
,COM, you must save it on a disk 
that contains CHOOSE.COM. 


MODE COB0 

■cho Do you wish to amt the 
date/time? 

rem press Y,y,N, or n to 
CHOOSE 

IF ERRORLEVEL 1 GOTO isetdt 
goto inext 
isetdt 
date 
time 
i next 
CHKDSK 
BASICA MENU 

After saving this program, run 
it by rebooting the system (press 
Ctrl-Alt-Del or enter AUTOEXEC). 
When used without parameters, 
CHOOSE checks for a yes/no re¬ 
sponse, permitting uppercase as 
well as lowercase Y and N (it's not 
necessary to press the Enter key 
after typing Y or N). Other re¬ 
sponses (except Ctrl-Break) cause 
the prompt message to be displayed 
until a valid choice is made. 

ERRORLEVEL Is A Variable 

After you respond with yes or no, 
CHOOSE passes this information 
to the batch program via ERROR- 
LEVEL. As explained in Part 1, 
ERRORLEVEL is a special variable 
you can test with IF. In this ex¬ 
ample, CHOOSE sets ERROR- 
LEVEL to 1 when the response is 
yes, and 0 when the response is no. 
The GOTO command then 
branches appropriately. Note that 
GOTO branches to a destination 
label, which is a colon followed by 
a string. This program uses the la¬ 
bels isetdt and :next. Don't confuse 
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the label :next with BASIC's NEXT 
statement (which doesn't exist in 
batch programming). 

In this case, ERRORLEVEL can 
have only one of two possible val¬ 
ues, but it can take higher values as 
well (see below). When testing 
ERRORLEVEL with IF, keep in 
mind that the IF ERRORLEVEL 
statement is true when ERROR- 
LEVEL is greater or equal to the 
number being tested. If you tested 
for 0 first in this program, ERROR- 
LEVEL would always be 0 (1 and 0 
are both greater than or equal to 0). 
When testing ERRORLEVEL, you 
must always test for higher values 
before testing for lower ones. 

Multiple Options 

Most utility programs offer a vari¬ 
ety of options. Typically, they dis¬ 
play a menu with a list of options, 
and you choose the option you 
want by pressing a certain key. 
CHOOSE makes it easy to present 
such menus within a batch pro¬ 
gram. First display the options on 
the screen, then use CHOOSE fol¬ 
lowed by a list of the keys you wish 
to test. For instance, the statement 
CHOOSE ABC checks the A, B, and 
C keys and returns appropriate val¬ 
ues in ERRORLEVEL. The ERROR- 
LEVEL value corresponds to the 
position of the key in the list after 
the CHOOSE command. Thus, 
after the program performs 
CHOOSE ABC, ERRORLEVEL 
equals 1 if A was pressed, 2 if B was 
pressed, and so on. 

When using CHOOSE with 
several option keys, it's critical to 
list the keys in the right order. Since 
you must always test for higher 
ERRORLEVEL values before test¬ 
ing for lower ones, you'll want to 
put the most likely (or most speed- 
critical) options at the end of the 
option key list. This assigns higher 
ERRORLEVEL values to the more 
important options. 

Entering FILES.BAT 

The "FILES.BAT" program below 
demonstrates multiple-option se¬ 
lection as well as a colorful, attrac¬ 
tively formatted menu and help 
panel. It sorts any disk directory by 
file size, date, filename extension, 
or alphabetical order, and can also 
create separate batch files for mass 
DOS operations. Entering the pro¬ 


gram requires several steps: 

1. Make sure your disk contains 
the system file called ANSI.SYS. 
If necessary, copy ANSI.SYS 
from the DOS disk with the 
COPY command. This file con¬ 
tains the screen/keyboard driv¬ 
er used for graphics displays 
and temporary key assignments. 

2. Make sure your disk contains a 
file named CONFIG.SYS that 
includes the statement DEVI¬ 
CE = ANSI.SYS. If your disk al¬ 
ready has a CONFIG.SYS file, 
add that statement to the file 
with EDLIN or another text edi¬ 
tor. If your disk doesn't have a 
CONFIG.SYS file, create one by 
entering these lines: 

COPY CON:CONFIG.SYS 
DEVICE = ANSI.SYS 

Next press the F6 key to end the 
file, then press Enter. Your disk 
now contains the necessary 
CONFIG.SYS file. 

3. Using EDLIN or some other text 
editor, enter Program 2 as listed 
below and save it on disk with 
the name FILES.BAT. (Since this 
is not a BASIC program, don't 
try to enter it with the IBM 
Automatic Proofreader.) Several 
lines in the listing contain the 
characters {CTRL-P}. The brac¬ 
es indicate that this is a special 
control character which you 
must enter by pressing a combi¬ 
nation of keys. Do not type the 
braces. Instead, wherever you 
see {CTRL-P} in the listing, 
hold down the Ctrl key and 
press the P key. On the screen, 
you'll see the wedge-shaped 
control character that precedes 
special ANSI.SYS screen or key¬ 
board instructions. Type every¬ 
thing else in Program 2 exactly 
as it appears. 

4. In the same manner, enter Pro¬ 
gram 3 as listed and save it on 
disk with the name FILES.MNU 
(do not use any other filename). 
This file is graphics data for the 
menu. Whenever you see 
{CTRL-P} in the listing, enter 
CTRL-P as described in step 3. A 
number enclosed in braces indi¬ 
cates a graphics character (the 
number is an ASCII code) which 
you must enter with the Alt- 
keypad technique on the PC and 
by another method on the PCjr. 


For instance, where the listing 
contains {218}, hold down the 
Alt key, then type the characters 
2, 1, and 8 on the numeric key¬ 
pad. When you release the Alt 
key, character 218 appears on 
the screen. On the PCjr, hold 
down Alt, press Function-N, 
then enter the numbers as on 
the PC. After all three numbers 
are entered, release the Alt key; 
the character will appear on the 
screen. When the braces enclose 
two numbers, several characters 
are needed; the first value shows 
how many characters to enter, 
and the second is the ASCII 
code. For instance, where you 
see {5 196}, use the above pro¬ 
cedure to enter character 196 
five times. Where you see the 
letters SP followed by a number 
and enclosed in braces, you 
should type the space bar the 
indicated number of times. For 
example, {SP 16} means to type 
16 spaces. 

Enter Program 4 as listed, using 
the technique described for step 
4, and save it on disk with the 
filename FILES.HLP (don't use 
any other filename). This file 
contains graphics data for the 
Help screen. 

6. Enter a batch program that con¬ 
tains nothing but a REM state¬ 
ment and save it on disk with 
the filename QUIT.BAT. This 
can be done with a text editor or 
by entering these statements 
from DOS: 

COPY CON: QUIT.BAT 
REM ANYTHING 

Now press the F6 key followed 
by Enter. 

7. Activate BASIC and type in Pro¬ 
gram 5. Since this program is 
listed in BASIC, enter and save 
it using the IBM Automatic 
Proofreader published bimonth¬ 
ly in COMPUTE!. You must save 
this program with the filename 
FILEGRP .BAS. 

8. Finally, before using FILES.BAT, 
check your disk to make sure all 
the necessary files are present. It 
must contain CHOOSE.COM, 
ANSI.SYS, CONFIG.SYS, 
FILES.BAT, FILES.HLP, FI¬ 
LES.MNU, FILEGRP.BAS, and 
QUIT.BAT. The program will 
not work correctly unless all 
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these files are on one disk and 
named as shown here. Note that 
the FILEGRP option (see below) 
also requires BASIC. 

Using FILES.BAT 

Before you run this program, reboot 
the system by turning the computer 
off and on or by pressing Ctrl-Alt- 
Del. This guarantees that the 
ANSI.SYS driver is present. To run 
FILES.BAT, enter FILES after the 
DOS prompt and press Enter. Most 
of the program is self-explanatory— 
after all, that's what menus and 
help screens are for—so we won't 
describe every option. 

The FILEGRP option lets you 
create a separate batch file (named 
FILEGRP.BAT) for performing op¬ 
erations on a group of files. Every 
line in FILEGRP.BAT consists of a 
filename from the subject disk and 
four dummy parameters in this 
order: 

°/ol filename.extension %2 %3 %4 

Dummy parameters are re¬ 
placed by actual parameters you 
supply when running FILEGRP¬ 
.BAT. This makes it easy to perform 
the same operation (copy, print, de¬ 
lete, etc.) on a large group of files. 
After using the FILEGRP option, 
exit to DOS and use a word proces¬ 
sor or text editor to edit FILEGRP¬ 
.BAT as needed, deleting the names 
of any files you don't want to in¬ 
clude in the operation. Then run 
FILEGRP.BAT by entering its name 
followed by the needed parameters. 
The first parameter can be any DOS 
command; the rest will be parame¬ 
ters that are relevant to that com¬ 
mand. For instance, you might 
enter FILEGRP COPY B: /V to copy 
the files listed in FILEGRP.BAT 
onto drive B. Incidentally, BASIC 
does not provide any way to set 
ERRORLEVEL. 

Advanced Batch 
Programming 

FILES.BAT employs several tech¬ 
niques you may find useful. The 
DOS command BREAK ON makes 
the system respond to Ctrl-Break in 
more instances than normal. The 
TYPE command is used to display 
graphics like the menu and help 
screen. TYPE creates such displays 
much faster than the DOS ECHO 
command (you could also use 
COPY). 


The ANSI.SYS driver assigns 
the lowercase keys a, s, d, e, b, and i 
to their uppercase equivalents to 
reduce the amount of testing re¬ 
quired. The FI and F10 keys are 
assigned to keys H and X, respec¬ 
tively, so those function keys per¬ 
form their usual HELP and EXIT 
roles. After CHOOSE accepts a re¬ 
sponse, the modified keys are re¬ 
stored to their original definitions. 
Pressing Ctrl-Break while 
CHOOSE is active (or pressing Y in 
response to "Terminate batch 
file?") leaves these keys reassigned. 
To avoid this effect, you should 
normally exit by pressing F10. 

The F10 (EXIT) function uses a 
trick to perform a quick exit. It sim¬ 
ply runs QUIT.BAT, a batch pro¬ 
gram that consists of a do-nothing 
REM statement. When any batch 
program ends, it ends all preceding 
batch programs as well. Note that 
since ECHO OFF is in effect when 
QUIT.BAT is called, the REM is not 
displayed. 

Batch commands are not par¬ 
ticularly fast. To optimize speed, 
structure the program so that the 
most-often used (or speed-critical) 
routines are closest to the place 
you're branching from. The fewer 
program lines that a GOTO has to 
skip over, the quicker it executes. 
You can also speed up batch pro¬ 
grams by using extra disk buffers as 
explained in the DOS Manual. REM 
statements slow batch programs 
drastically; if you want to document 
the program, store your comments 
in a separate file. 

In some cases it's useful to test 
for the absence of a parameter. For 
instance, you might want to re¬ 
prompt the user with a message like 
"You must enter more infor¬ 
mation." This can be done with a 

statement such as IF .-%1. 

GOTO .NOPARM. This line means 
"if a dot equals the parameter plus a 
dot then go to the no-parameter 
routine." The IF test is true only 
when no parameters have been 
entered. 


Program 1: CHOOSE.COM 
Filemaker 

For instructions on entering this listing, please 
refer to "COMPUTEi's Guide to Typing in 
Programs" published bimonthly in compute!. 

SJ 100 OPEN "CHOOSE.COM" FOR OUT 


140 DATA A0,80,0,3C,0,75,2D, 
90,BA,60,1,B4,9,CD,21,B4 
150 DATA C,B0,7,CD,21,3C,59, 
74, F,3C,4E,74,10,3C,79,74 
160 DATA 7,3C,6E,74,8,EB,El, 
90, B0, 1, EB, 3, 90, B0, 0, B4 
170 DATA 4C,CD,21,90,BA,80,1 
, B4,9,CD,21,B4,C,B0,8,CD 

100 JSLSiaSTiSKfeK' 

210 ’DATA 72,20,4E,20,28,6E,6 
F, 29, 20,2E, 2E, 2E, D, A, 24,2 

220 

, 6 F 

230 DATA 70,74,69,6F,6E,20,2 
E,2E,2E,D,A,24,0,0,0,0 
240 DATA /* 

FILES.BAT 



echoTCTRL-P> C “a";"A"pCCTRL-P> C 
"s";"S"p{CTRL—PTC"d";"D"pTCT 
RL-P> l "e";"E”ptCTRL-P> C"b";" 
B"p TCTRL—P> C“i" 5 "I"p 

echo tCTRL—P>C0;59;"H"pCCTRL-PJ 
C0; 68 ;"X"p {CTRL—P> C2A 

echotCTRL-P> C"a";"a"pCCTRL-P>C 
"s" ; "s"p{CTRL-PJ C "d"; "d ,, p tCT 
RL—P>C"e";"e"p{CTRL—P>C "b";" 
b"pCCTRL—P>C"i 11 ; "i "p 
echotCTRL-P}[0;59;0;59p TCTRL—P 
}C0; 68 ;0; 68 p tCTRL-P>C0m 
if error level 
if errorlevel 
if errorlevel 
if errorlevel 

if errorlevel 
if errorlevel 



els 

sort /+14 /R Ctemp.dir >con 
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basic filegrp 

echo-FILEGRP. BAr 


dir XI /p 
pause 

goto smenu 


Program 3: FILES.MNU 

{CTRL—P}C2J {CTRL—P> C32m 
<SP 16}{218> {5 196} 

{CTRL—P> C33m DIRECTORY 
DISPLAYS MENU {CTRL-P}C32m{5 
196}{191> 

{SP 16}{179}{SP 3S>{179} 

{SP 16}{179>{CTRL-P} C35m A 
{CTRL—P> C32m— Alphabetical 
order by -filename {179> 

{SP 16}{179}{SP 35>{179> 

{SP 16>{179>{CTRL—P> 135m E 
{CTRL-P}C32m- Ext name 
order{SP 17>{179> 

{SP 16}{179>{SP 35>{179> 

{SP 16}{179>{CTRL—P> C35m D 
{CTRL—P>C32m— Date order, Yr 
not significant {179} 

{SP 16}{179}{SP 35}{179} 

{SP 16}{179}{CTRL—P}C35m S 
{CTRL-P}C32m- Size order{SP 
21}{179} 

{SP 16}{179}{SP 35}{179} 

{SP 16}{179}{CTRL-P}C35m B 
{CTRL-P}E32m- Bat file 
creation! FILEBRP.bat {179} 
{SP 16}{179}{SP 35}{179} 

{SP 16}{179}{CTRL-P}C35m I 
{CTRL-P}C32m- Intrinsic 
order of dir entries {179} 

{SP 16}{179}{SP 35}{179} 

{SP 16}{179}{CTRL-P}C35mFl 
{CTRL-P}C32m- HELP{SP 
27}{179} 

{SP 16}{179}{SP 35}{179} 

{SP16}{179}{CTRL-P}C 35mF10{CTRL 
-P} C32m- EXIT {SP 27M179} 

{SP 16}{179}{SP 35}{179} 

{SP 16}{192}{36 196}{217} 
{CTRL-P}C31m 


Program 4: FILES.HLP 

{CTRL-P}C44» 33m{CTRL-P}C2J{CTR 
L-P}Clm 

{SP 7} {201} {15 205} 

{CTRL-P}C35m DIRECTORY 
DISPLAY HELP {CTRL-P}C33m{16 
205}{187} 

{SP 7}{186}{SP 2}PURPOSE! 
Produces a directory 
1i»ting{SP 17}{186} 

{SP 7}{186}{SP 12}sorted in 
the desired order.{SP 
16}{186} 

{SP 7}{186}{SP 2}SYNTAX:{SP 
2}FILES 

Cdi1Cfi1 enamelI.ext 1{SP 
20}{186} 

{SP 7}{186}{SP 9}(if 

parameters are omitted, *.* 
used){SP 10}{186} 


{SP 7}{186}{SP 56}{186} 

{SP 7}{186}{SP 2}MENU 
OPTIONS!{SP 41}{186} 

{SP 7}{186}{SP 4}A: Directory 
sorted ascending by 
fi1enameISP 11}{186} 

{SP 7}{186}{SP 4}E: Directory 
sorted ascending by file 
extensionfSP 5}{186> 

{SP 7}{186}{SP 4}D: Directory 
sorted ascending by file 
date (mm-dd){SP 2}{1861 
{SP 7}{186}{SP 7}giving 

calendar order, year least 
significant{SP 4}{186} 

{SP 7}{186}{SP 4}S: Directory 
sorted DESCENDING by file 
sizeISP 9}{186} 

{SP 7}{186}{SP 7}allowing 
quick determination of 
largest files{SP 4}{186} 

{SP 7}{186}{SP 4}B: 

FILEGRP.BAT created as i XI 
filename.ext X2 X3 X4{186> 

{SP 7}{186}{SP 7}for editing 
and mass file copy, erase, 
type, etc.{186} 

{SP 7}{186}{SP 4}I: Directory 
in the order of the 
directory entriesfSP 2}{186} 
{SP 7}{186}{SP 56}{186} 

{SP 7}{186}{SP 4}H or FI: 

Displays this help panel{SP 
19} {186} 

{SP 7}{186}{SP 4}X or F10: 

Fast exit to DOS{SP 26M186} 
{SP 7}{200}{56 

205}{188}{CTRL-P}C0m 

Program 5: FILEGRP.BAS 

For instructions on entering this listing, please 
refer to “COMPUTEi's Guide to Typing In 
Programs" published bimonthly in COMPUTEl. 

NJ 10 ’This program creates a ba 
tch file named FILEGRP.BAT 
, using the 

10 20 ’TEMP.DIR file created by 
FILES.BAT. FILEGRP.BAT is 

JF 30 'group file operations sue 
h as copying, deleting, pr 

EK 40 ’Each 9 line in FILEGRP.BAT 
has the format! XI filenam 
e. ext X2 X3 X4 

6 K 50 'Use a word processor or t 
ext editor to delete non-p 
articipating 

10 60 ’files from FILEGRP.BAT. 

PE 70 OPEN “temp.dir" FOR INPUT 
AS #1’input file 
HN 80 OPEN "filegrp.bat" FOR OUT 
PUT AS #2'output file 
EC 90 FOR X= 1 TO 4: IF EOF (1) TH 
EN SYSTEM’skip 4-line head 

KD 100 LINE INPUTtfl, X*: NEXT 
6 * 110 IF EOF(1) THEN SYSTEM’che 
ck for end-of-file 
LA 120 LINE INPUT #l,X*’get inpu 
t line 

01 130 IF LEFT* (X*, 1) =“ " GOTO 1 
10 ’skip lines beginning w 

SE 140 Z=INSTR(X*, ” ">:Z=Z-1’fin 
d length of filename 
E6 150 PRINT #2, "XI " ; MID* < X*, 1, 
Z)|"."|MID*(X*,10,3)j" X2 
X3 X4"'form output 
HL 160 GOTO 110’continue till en 
d-of-file © 


Davidson is 

1, *1,1, a 1 

in Education 


For math, speed reading, spelling and vocabulary, 
Davidson’s award winning software outsells all others. 
Why? Because enough people choose to buy the 
educational software that works . 

MATH BLASTER makes it more fun to add, 
subtract multiply, divide, and learn fractions, decimals 
and percents. First through sixth 
graders master 600 math facts with 
exciting graphics, animation, sound 
1 " s'XV effects...even an arcade game. 

. Apple™, Macintosh™, IBM™, 
Commodore 64/128™, Atari™. 49.95. 


SPEED READER D can quadruple your reading 
speed and improve your comprehension. Develop 
.~l —— g 0 od reading habits, chart your 

progress, and have fun! For high 
5^ school age through adult Apple 

' II™, Macintosh™, IBM™, 

i 1 Commodore 64/128™. 69.95 

WORD ATTACK lets students ten through adult 
discover the meanings and usages of 675 new words. 

Includes a fun, fast-action arcade 
game and add-your-own-words 
editor. Apple™, IBM™, Commodore 
64/128™, Atari™. 49.95 


SPELL IT teaches ten year olds and older how to 
spell a thousand and one of our most commonly 

misspelled words. Vivid graphics, 
animation, sound effects, a lively 
' arcade game and add-your-own- 

words editor, too! Apple™, IBM™, 
Commodore 64/128™, Atari™. 49.95 




Davidson & Associates, Inc. 

800-556-6141 

(In Calif., 213-534-4070) 


B Davidson . 


Davidson & Associates, Inc. 

3135 Kashiwa St / Torrance, CA 90505 

NEA 

Please send me a FREE COLOR BROCHURE and the name of 

my nearest Davidson Dealer. 

Namp 


Address 



















64 

Multicolor Graphics 
Made Easy 

James P. Hassett 



"Color Plotter 64" gives your Com¬ 
modore 64 a set of 14 powerful new 
commands for plotting multicolor 
high-resolution graphics. You can 
even mix text and graphics on the 
same screen. The photos on these 
pages were generated by the demo 
program following this article. 


Have you ever admired a multicol¬ 
or high-resolution graphics display 
on the Commodore 64? Usually 
you have to learn machine lan¬ 
guage to create such displays your¬ 
self—but not now. 

With “Color Plotter 64" those 
screens become easy because you'll 
have 14 special graphics commands 
added to your Commodore 64 


BASIC. And because the com¬ 
mands are written in machine lan¬ 
guage, they work fast and 
efficiently. Here is a summary of 
the new commands: 

IN, Turns on hi-res multicolor 
mode. 

OFF, Turns off hi-res multicolor 
mode. 

CL, Clears hi-res screen. 

PC, Pen Clear. Clears everything 
on high-res screen drawn with cur¬ 
rent pen number. 

P0,n Sets color of PEN 0, which is 
also the background color, where n 
is one of the 16 standard colors 
(0-15). 

P1,m Sets color of PEN 1 (n = 
0-15). 

P2,w Sets color of PEN 2 (n = 
0-15). 


P3,« Sets color of PEN 3 (n = 
0-15). 

PEN,m Defines active pen number 
(n = 0-3). 

PL,*,y Plots point on hi-res screen 
at coordinates x,y using active pen. 
DR,x,y Draws best straight line 
from last point plotted to coordi¬ 
nates x,y using active pen. 

CR,x,y Sets hi-res screen cursor to 
coordinates x,y. 

PR,A$ Prints contents of A$ on 
high-res screen using active pen. 
PR,"text” Prints text between 
quotes on hi-res screen using active 
pen. 

Some of these commands may 
look familiar to those who have 
plotted graphics on other comput¬ 
ers with other languages. You 
might be able to jump right in and 
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start plotting. Do note that all com¬ 
mands, even those without param¬ 
eters (such as the IN, command), 
must be accompanied by the com¬ 
ma. There are also some special 
typing and loading instructions to 
follow with Color Plotter 64. For 
more details, see the sections 
below. 

Entering The Program 

Since Color Plotter is written en¬ 
tirely in machine language, it must 
be entered with the "MLX" ma¬ 
chine language editor program, 
found elsewhere in this issue. To 
enter the Color Plotter program, 
load and run MLX. When MLX asks 
for the starting and ending address¬ 
es for the machine language data to 
be entered, respond with 49152 
and 51353, respectively. MLX will 
then prompt you with the line 
number of the first line of data, 
49152. Begin typing the data shown 
in Program 1 and continue until all 
the data is entered. If you do not 
type in all the data in one sitting, 
follow the directions in the MLX 
article for saving your incomplete 
work. When all the data is entered, 
you're ready to start using the Color 
Plotter commands. 

Special Loading 
Instructions 

You must issue a certain sequence 
of commands to load and activate 
Color Plotter 64. After turning on 
the power, enter these lines for 
disk, pressing RETURN each time: 

LOAD "COLOR PLOTTER",8,l 

POKE 44,64:POKE 16384,0:NEW 

SYS 51260 

For tape, change the first line above 
to: 

LOAD "COLOR PLOTTER",l,l 
Of course, you can save Color 
Plotter 64 on disk or tape with any 
filename you like. To load a pro¬ 
gram that contains Color Plotter 
commands, use the normal LOAD 
command. 

Color Plotter Pen 

As described above, the first three 
Color Plotter 64 commands (IN, 
OFF, and CL,) turn the hi-res multi¬ 
color mode on or off and clear the 
screen. (For those interested, the hi¬ 
res screen is located at memory ad¬ 
dresses 8192 to 16191—hex 


$2000-$3F3F.) 

PC, (Pen Clear) makes it possi¬ 
ble to erase certain things off the 
screen while leaving all else intact. 
This is particularly useful for re¬ 
moving text, prompts, or messages 
while preserving the drawing in the 
background. To erase everything 
drawn with PEN 1, for example, 
execute: 

PEN,1:PC, 

The next five commands are 
very similar to each other; they all 
select drawing colors for the vari¬ 
ous pens. The parameter n should 
be a number, variable, or numeric 
expression in the range of 0 to 15 
corresponding to standard Commo¬ 
dore 64 color numbers. (If you spec¬ 
ify a number larger than 15, Color 
Plotter 64 does not report an error, 
however.) All the following state¬ 
ments are legal: 

P0,0:REM Sets PEN 0 and background 
color to black. 

P1,J:REM Sets color of PEN 1 to previ¬ 
ously defined value of variable J. 

P2,J/2 + l:REM Sets color of PEN 2 to 
value of expression J/2+1. 

The command PEN,n defines 
the active pen number—in other 
words, which pen will be used with 
the drawing, printing, and pen¬ 
clearing commands that follow. 
Since there are only four pens, the 
parameter n should be a number, 
variable, or expression in the range 
of 0 to 3. PEN 0 is the background 
color, which makes it handy for 
erasing lines drawn with another 
color (simply draw over the lines 
with PEN 0). 

As a technical aside, the pens 
draw in different colors by switch¬ 
ing on different bit pairs on the hi¬ 
res screen. PEN 0 plots a 00 bit pair. 
PEN 1 plots the 01 pair, PEN 2 
plots the 10 pair, and PEN 3 plots 
the 11 pair. PC, (Pen Clear) works 
by searching the screen and remov¬ 
ing all occurrences of the bit pair 
that matches that of the active pen. 

Drawing And Printing 

The next five commands all per¬ 
form the actual drawing, plotting, 
and printing in the colors specified 
by the pen commands. They use a 
coordinate system so you can place 
the pens anywhere on the screen. 

PL,x,y is the plot command. 
Screen coordinates in the multi¬ 


color hi-res mode range from 0 to 
159 horizontally (x) and 0 to 199 
vertically (y). Important: The origin 
is the lower-left corner of the screen. 
That means the coordinates of the 
lower-left corner of the screen dis¬ 
play are 0,0, the upper-left coordi¬ 
nates are 0,199, the upper-right 
coordinates are 159,199, and the 
lower-right coordinates are 159,0. 

Again, the parameters x and y 
can be numbers, variables, or nu¬ 
meric expressions. Trying to plot a 
location out of range causes an 
ILLEGAL QUANTITY ERROR. 

DR ,x,y is the draw command. It 
works with, the same coordinates as 
the plot command. Since the x,y 
parameters are the coordinates it 
draws to, at least one plot command 
should be executed to define the 
starting point before the first draw 
command. 

CR ,x,y positions the invisible 
hi-res cursor at the coordinates 
specified. This defines where a fol¬ 
lowing print command will begin 
printing the text. Since a character 
is 8 bits high and 16 bits wide, the 
allowable range for coordinates 
with this command is 1 to 144 for x 
and 1 to 192 for y. Specifying a 
location out of range causes an 
ILLEGAL QUANTITY ERROR. 

PR,A$ and PR,"" are the hi-res 
printing commands. To print a mes¬ 
sage, simply put the text between 
the quotes with PR,"" or define it as 
a string variable with PR,A$. String 
expressions such as PR,A$ + B$ or 
PR,A$ + "ABC" are not allowed. 

Nondestructive Printing 

The printing commands are special¬ 
ly written so they never write over a 
bit that is already on. This means 
they print nondestructively; they 
won't interfere with your graphics. 
This is handy in many instances. 
For example, if you create a draw¬ 
ing or a graph, you can label it 
without erasing any lines. Then you 
can erase the text with the PC, com¬ 
mand without disturbing the 
graphics, assuming the text is print¬ 
ed in a different color. 

The printing commands also 
update the invisible hi-res cursor 
automatically. They provide for 
line advances and wraparound 
from the bottom to the top of the 
screen. 

There is one limitation with the 
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printing commands. They can print 
only those characters with ASCII 
codes 33 to 95 (this includes most 
punctuation symbols, numbers, 
and letters, but no keyboard graph¬ 
ics). Trying to print characters out 
of this range will cause an error. 

You can do lots of exciting 
things with these 14 commands. By 
executing Pl,l everything drawn 
on the screen with PEN 1 will 
change to white in a flash. With a 
simple loop (FOR X=0 TO 15:P1, 
X:NEXT X) everything drawn with 
PEN 1 will flash through all 16 
colors in an instant. Drawings or 
objects can be made to disappear by 
executing a command to match the 
pen color to the background color. 
Then they can be made to instantly 
reappear by executing another pen 
color command using a contrasting 
color. 


cause a syntax error by typing a key 
in direct mode and pressing 
RETURN. 

If you press RUN/STOP- 
RESTORE, the Color Plotter 64 
commands will no longer work. 
That's because BASIC ROM is 
switched back in. (Color Plotter 64 
works by copying BASIC ROM into 
RAM and then modifying it to 
patch in the new routines.) In fact, 
the program won't even LIST prop¬ 
erly. The first thing to do after 
pressing RUN/STOP-RESTORE is 
to enter SYS 51343 or POKE- 
1,PEEK(l) AND254. Either state¬ 
ment will switch out BASIC ROM 
and resurrect Color Plotter 64. 


Program 1: Color Plotter 64 

Please refer to the "MLX" article before enter¬ 
ing this listing. 


Additional Notes 

You should be aware that Color 
Plotter 64 affects a few normal 
BASIC commands. None of the 
new commands works with IF- 
THEN. For example, the following 
statement will cause a syntax error: 

10 X = 5:IF X=5 THEN CL, 

Otherwise, IF-THEN works 
normally. 

BASIC's pi function (ti) also is 
affected. It still operates and is eval¬ 
uated as 3.1415 ... but appears as a 
graphic symbol when listed. If a 
line containing a pi symbol is edited, 
the pi symbol will have to be re¬ 
typed at the edited line. I have 
found it convenient to define the 
variable PI=3.14159 and use PI in¬ 
stead of the pi symbol. 

The IN, command should nev¬ 
er be executed when already in the 
hi-res mode. Otherwise, a system 
crash and lockup may result. This is 
because the IN, command saves the 
normal error vector (ERRVEC) and 
replaces it with a new vector. If it is 
executed again before an OFF, com¬ 
mand, the ERRVEC will point to 
the address of the replacement vec¬ 
tor—in effect, it will point to itself. 

Anytime there's a syntax error, 
the normal text screen with the de¬ 
fault colors is restored. When a pro¬ 
gram is running in the hi-res mode, 
you can stop it as usual by pressing 
the RUN/STOP key. To return to 
the normal text screen, deliberately 


49152 

49158 

49164 

49170 

49176 

49182 

49188 

49194 

49200 

49206 

49212 

49218 

49224 

49230 

49236 

49242 

49248 

49254 

49260 

49266 

49272 

49278 

49284 

49290 

49296 

49302 

49308 

49314 

49320 

49326 

49332 

49338 

49344 

49350 

49356 

49362 

49368 

49374 

49380 

49386 

49392 

49398 

49404 

49410 

49416 

49422 

49428 

49434 

49440 

49446 

49452 

49458 

49464 

49470 

49476 

49482 


49488 

49494 

49500 

49506 

49512 

49518 

49524 

49530 

49536 

49542 

49548 

49554 

49560 

49566 

49572 

49578 

49584 

49590 

49596 

49602 

49608 

49614 

49620 

49626 

49632 

49638 

49644 

49650 

49656 

49662 

49668 

49674 

49680 

49686 

49692 

49698 

49704 

49710 

49716 

49722 

49728 

49734 

49740 

49746 

49752 

49758 

49764 

49770 

49776 

49782 

49788 

49794 

49800 


49806 

49812 

49818 

49824 

49830 

49836 

49842 

49848 

49854 

49860 

49866 

49872 

49878 

49884 

49890 

49896 

49902 

49908 

49914 

49920 

49926 

49932 

49938 

49944 

49950 

49956 

49962 

49968 

49974 

49980 

49986 

49992 

49998 


50016 
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64 Y1=Y1+DY:IFY1>170THENY1=170 
m 58 

66 IFY1<9THENY1=9 

68 X2=X2—DX sIFX2 >159THENX2=159 
:rem 77 

69 IFX2<0THENX2=0 
J Y2=Y2+DY:IFY2>170THENY2=170 

:rem 59 

72 IFY2 <9THENY2=9 :rem 40 

74 DR,X1, Y1:X3=X1:Y3=Y1:PEN,3: 
PL,X4,Y4:DR,X2,Y2:X4=X2:Y4= 

i 160 

75 PL,X3,Y3 

76 K=K+1:IFK>15THENK=£ 

0500:NEXTJ:PC,:PEN,2:PC, :G0 
T055 

78 GETA$:IFA$=""THEN55 : ri 

79 POKE198,0:CL, :r< 

210 REM * * * * DEMO2 GEOMETRIC PAT 

TERN***** : ] 

220 CL,:REM CLEAR SCREEN 

:rem 148 
225 PEN,3:CR,40,100:PR,"NOW LE 
T'S SEE":CR,40,90:PR,"A PA 
TTERN" 

230 X1=0:Y1=0:X2=159:Y2=0:X3=1 
59:Y3=199:X4=0:Y4=199 

:rem 175 
240 PEN,1:PL,XI,Y1:DR,X2,Y2 

i PEN,2:DR,X3,Y3 
) PEN,1:DR,X4,Y4 
i PEN, 2 : DR, XI, Y1 : rem 24 

1 Xl=Xl+5:Y2=Y2+6.25:X3=X3-5 
:Y4=Y4-6.25 :rem 66 

i IFX1<160THEN240 
3 PEN,3 

) IFY1=50THEN280 
1 XI=50:Y1=50:X2=110:Y2=50:X 
3=110:Y3=150:X4=50:Y4=15( 
GOTO240 :rem < 

J PEN,3:PC,:K=0 :rem 1? 

5 F0RI=1T015:PI,I:P2,16—1:FO 
RJ=0TO400:NEXTJ 
i GETA$:IFA$=""THENNEXTI:K=K 
+1:IFK<2THEN290 
) PI,15:P2,3:P3,14:CR,65,100 
:PEN,3:PR,"DONE" 

I FORI=0TO500:NEXT:PEN,1:PC, 
:FORI=0TO500:NEXT:PEN,2:PC 


315 FORI=0TO200:NEXT:CL, 


i 81 

1 217 

1 CR,0,160:PR,"MORE RANDOM D 
ESIGNS" :rei 

J FORI=0TO800:NEXT:CL, 

:rem 220 

) P0KE198,0:PEN,1 :rem 63 

! REM****DEM03, RANDOM DESIG 
NS ******* . rem 152 
! P0,0:REM SET PEN 0(BKGRND) 
=BLK 

t PI,1:REM SET PEN 1=C0L0R 1 
=WHITE :rem 62 

3 P2,2:REM SET PEN 2=COLOR 2 
=RED :rem 157 

i P3,3:REM SET PEN,3=C0L0R 3 
=CYAN 

i PEN,1:REM DEFINE ACTIVE PE 
N =PEN1 : rem 147 

i CL,:REM CLEAR HI-RES SCREE 
N :rem 66 

I N=3:REM SET NUMBER OF RAND 
OM PTS 

420 Nl=20:REM SET INTERVAL DIV 
IDER 

423 REM NEXT LINE GENERATES RA 
NDOM X,Y :rem 32 

430 FORI=0TON:X(I)=INT(RND(0)* 
120)+20:Y(I)=INT(RND(1)*19 
0) .-NEXTI 


438 REM NEXT LINE COMPUTES DEL 
TX,DELTYS :rem 220 

440 FORI=0TON—1:DX(I)=(X(1+1)- 
X(I))/Nl:DY(I)=(Y(I+l)-Y(I 
))/Nl:NEXTI :rem 123 

450 DX(N)=(X(0)-X(N))/Nl:DY(N) 
=(Y(0)-Y(N))/Nl :rem 190 
465 REM DRAW LINES BETWEEN POI 
NTS :rem 19 

470 PL,X(0),Y(0):FORI=0TON:PEN 
,I:DR,X(I),Y(I):NEXTI:PEN, 
2:DR,X(0),Y(0):PEN,3 

:rem 61 

476 REM COMPUTE NEW X AND Y VA 

LUES :rem 224 

477 REM BASED ON NEWX=OLDX+DX 

:rem 255 

478 REM AND NEWY=OLDY+DY 

:rem 218 

480 FORI=0TON:X(I)=X(I)+DX(I): 
Y(I)=Y(I)+DY(I):NEXTI 

:rem 103 

485 REM CHECK IF DONE :rem 152 

486 REM IF NOT, DRAW LINES 

:rem 219 

487 REM BETWEEN NEW X AND Y'S 

:rem 121 

488 K=K+1:IFK<N1 THEN 470 

:rem 108 

491 REM KEY PRESSED? :rem 192 

492 REM IF TRUE THEN END 

:rem 88 

493 REM IF NOT THEN CONTINUE 

:rem 152 

500 GETA$:IFA$ < >""THEN700 

:rem 140 

515 REM DELAY TO VIEW GRAPHICS 
:rem 29 

520 FOR 1=0 TO 500:NEXTI 

:rem 46 

526 REM LOOP THROUGH GENERATIO 

N :rem 200 

527 REM OF RANDOM COLORS 

:rem 170 

528 REM FOR PENS 2 AND 3 

:rem 216 

530 FOR 1=0 TO 5:C1=INT(RND(1) 
*15)+1:C2=INT(RND(1)*15)+1 
:C3=INT(RND(1)*15)+1 

:rem 123 

532 P1,C1:P2,C2:P3,C3 :rem 119 
534 REM TIME DELAY :rem 30 

536 FORJ=0TO300:NEXTJ :rem 53 

537 NEXTI :rem 39 

538 CR,8,188:PR,"PRESS KEY TO 

{SPACE}EXIT":FORI=0TO500:N 
EXTI :rem 214 

540 REM CLEAR SCREEN ONE PEN 

:rem 105 

541 REM AT A TIME WITH DELAY 

:rem 46 

545 PEN,1:PC,:FORI=0TO300:NEXT 
I :rem 166 

550 PEN,2:PC,:FORI=0TO300:NEXT 
I :rem 163 

560 PEN,3:PC,:FORI=0TO300:NEXT 
I :rem 165 

580 REM CHECK FOR KEYPRESS 

:rem 60 

590 REM IF TRUE THEN EXIT 

:rem 186 

600 REM ELSE CONTINUE :rem 8 
610 GETA$:IFA$<>""THEN700 

:rem 142 

640 K=0:GOTO415 :rem 95 

700 REM ****DEM04 GLOBAL GRAPH 
ICS***** : rem 80 

710 CL,:P0,0:P1,1:P2,6:P3,2:PE 
N,1 :rem 52 

730 R=6«I:PI = 3.14159 :rem 4 

731 X=0:Y=0:Z=0:GOSUB900:PL,SX 


,SY:X=0:Y=0:Z=6 5:GOSUB900: 
DR,SX,SY :rem 70 

732 SX=SX+3:CR,SX,SY:PR,"Z" 

:rem 177 

733 X=0:Y=0:Z=0:GOSUB900:PL,SX 
,SY:Y=6 5:GOSU B900:DR,SX,SY 
:SY=SY+3:CR,SX,SY :rem 243 

734 PR,"Y":X=0:Y=0:Z=0:GOSUB90 
0:PL,SX,SY:X=80:Y=0:Z=0:GO 
SUB900:DR,SX,SY :rem 235 

735 SY=SY+4:CR,SX,SY:PR,"X":PE 

N, 2 :rem 48 

740 FORTH=0TOPISTEP Pi/10 

:rem 44 

750 Z=R*COS(TH):R1=R*SIN(TH) 

:rem 206 

760 X=R1*C0S(1.9*PI):Y=R1*SIN( 
1.9*PI) :rem 131 

770 GOSUB900:PL,SX,SY :rem 60 
775 IFTH=0THENNEXTTH :rem 69 

780 FOR BETA=0TO 2*PISTEP PI/1 
0: :rem 70 

790 X=Rl*COS(BETA):Y=R1*SIN(BE 
TA): :rem 66 

800 GOSUB900:DR,SX,SY :rem 48 

810 NEXT BETA :rem 244 

820 NEXT TH :rem 117 

830 PEN,3 :rem 221 

835 X=0:Y=0:Z=R:GOSUB900:PL,SX 
,SY :rem 96 

840 FORTH=0 TO 2*PI STEP PI/10 

:rem 137 

841 X=0:Y=0:Z=R:GOSUB900:PL,SX 

,SY :rem 93 

845 FOR BETA=0 TO PI STEP Pl/l 

850 Z=R*COS(BETA):X=R*SIN(BETA 
)*COS(TH):Y=R*SIN(BETA)*SI 
N(TH) :rem 68 

855 GOSUB900:DR,SX,SY:NEXT BET 
A:X=0:Y=0:Z=-R:GOSUB900:DR 
,SX,SY :rem 240 

860 NEXT TH : rem 121 

865 PEN,1:PC,:FORI=0TO1000:NEX 

T :rem 144 

866 FORI=0TO10:C2=INT(RND(0)* 1 
6):C3=INT(RND(0)* 16):P2,C2 
:FORJ=0TO150:NEXTJ:rem 179 

867 P3,C3:FORJ=0TO150:NEXTJ:NE 

XTI :rem 96 

870 PEN,1:CR,4,4:PR,"THAT'S AL 
L FOLKS" :rem 189 

875 FORI=0 TO 32:PI,I:FORJ=0TO 
50:NEXTJ,I :rem 145 

879 REM ****CLOSING CEREMONIES 

****** :rem 41 

880 CL,:P0,14:PI,6:CR,15,95 

:rem 190 

885 PR,"COLOR PLOTTER 64" 

:rem 202 

888 PR," ":P2,1:PEN,1 :rem 77 

895 FORI=0 TO 1000:NEXTI 

:rem 105 

897 P3,6:FORI=0TO101:PL,0,1:DR 

,159,I:PL,0,199-I:DR,159,1 
99-1:NEXTI :rem 105 

898 OFF,:POKE53281,6:POKE53280 
,14:PRINT"{CLR}" :rem 24 

899 END :rem 129 

900 Sl=SIN(Pl/4):C1=C0S(PI/4): 

S2=SIN(PI/4):C2=COS(PI/4): 
D=100:PH=120 :rem 237 

905 XE=-X*S1+Y*C1 :rem 205 

910 YE=—X*C1*C2-Y*S1*C2+Z*S2 


:rem 62 

915 ZE=-X*S2*C1-Y*S2*S1—Z*C2+P 


H 

920 SX=D*XE/ZE+80 
925 SY=D*YE/ZE+100 
930 RETURN 
1000 END 


:rem 25 
:rem 239 
:rem 31 
:rem 124 
:rem 152 © 
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Apple II 

Pull-Down Menus 

Lee Swoboda 


With this program, you can add at¬ 
tractive, Macintosh-like pull-down 
menus and instruction screens to any 
BASIC program. For all Apple II- 
series computers with DOS 3.3 or 
ProDOS. 


Apple's Macintosh has forced pro¬ 
grammers to reevaluate software 
for the venerable Apple II. Recent 
Apple II programs go to some 
lengths to emulate the Mac's pull¬ 
down menus and icons to make the 
software less intimidating. No 
amount of programming magic will 
turn an Apple II into a Mac, but the 
following programs let you add 
pull-down menus and instruction 
screens to any Applesoft BASIC 
program. 

Two programs are needed to 
make this happen: a BASIC subrou¬ 
tine you can easily add to the end of 
any BASIC program, and a machine 
language (ML) routine that tempo¬ 
rarily saves and later restores'the 
text behind the pull-down menu. 
Although BASIC takes several sec¬ 
onds to move an entire text screen, 
machine language performs the 
same task in an instant. Don't wor¬ 
ry if you're unfamiliar with ma¬ 
chine language. We've listed a 
BASIC filemaker program that 
automatically creates the ML rou¬ 
tine for you. 

Starting Out 

To get “Pull-Down Menus" run¬ 
ning, you need to type in and save 


both programs listed below. Pro¬ 
gram 1 is the filemaker program 
that automatically saves the ML 
routine to disk as a binary file 
named MOVE. Type it in and save a 
copy, then run it. Program 2 is an 
example BASIC program that dem¬ 
onstrates pull-down menus. It is 
designed to run with either DOS 
3.3 or ProDOS. If you're using DOS 
3.3, type the program exactly as 
shown. For ProDOS, change line 
150 as shown here: 

75 150 HI MEN: 35840 

Since this program loads the 
MOVE file from disk, be sure to put 
the right disk in the drive before 
you run it. Once you have it run¬ 
ning, the program simulates a crude 
word processor with a screenful of 
text. You can type on the screen and 
move the cursor with the arrow 
keys (use CTRL-J and CTRL-K for 
the up and down cursor keys if you 
don't have a lie or lie). When you 
press the ESC key, the pull-down 
menu appears. Then you can move 
the selection cursor inside the menu 
with the cursor keys, and choose a 
selection by pressing RETURN. 
Note that the text behind the menu 
is always restored correctly when 
you leave the menu. 

Create Your Own Menus 

The important part of the demon¬ 
stration program is the subroutine 
beginning at line 63000. This rou¬ 
tine allows you to add pull-down 
menus to your own programs with 


a minimum of work: It generates 
the window shape and calls MOVE 
at the appropriate time. All you 
need to do is add lines 63000- 
63500 to the end of any BASIC 
program, and follow the steps listed 
below: 

1. Your program must BLOAD 
MOVE as shown in lines 
180-190 before calling the ML 
routine. 

2. Set HIMEM immediately (line 
150) before you declare any 
strings or open any files. Use a 
value of 36914 for DOS 3.3 or 
35840 for ProDOS. 

3. Set the variable NN to equal the 
maximum number of items you 
will have in the largest menu 
(line 160). The menu subroutine 
automatically determines how 
many items are in each menu 
and adjusts the size of the menu 
window accordingly. 

4. DIMension the string array MM$ 
for the number of menu selection 
labels you need (line 170). Then 
fill each array element with a 
label string, either by READing 
string DATA as in lines 200-220 
or by defining each string ex¬ 
pressly (with statements like 
MM$(1) = “Leave menu"). 

5. Define the string variable TITLES 
as your menu title (line 470). The 
menu subroutine automatically 
centers the title for you. 
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6. Provide some means of branch¬ 
ing to the rest of your program 
based on the value of the vari¬ 
able SELECT (line 480). This 
may be done with ON SELECT 
GOTO as in this program, or 
with ON SELECT GOSUB or a 
series of IF-THEN statements. 
Lines 690-850 of the program 
show how to use MOVE to add 
instructions to your programs with¬ 
out losing the original screen. In 
this case, CTRL-I is used to request 
instructions. 

Using A Mouse 

If you have an Apple mouse, you 
can use it to call the menu and make 
selections. This requires several 
changes in the demonstration pro¬ 
gram. First, delete lines 320, 330, 
and 63360-63460. Then change 
lines 310, 450, and 63350 as 
follows: 

E? 310 PRINT "PRESS ESC KEY OR M 
OUSE BUTTON FOR MENU"; 

9B 450 SOTO 311 

66 63350 HTAB 3: VTAB SELECT + 2 
: INVERSE : PRINT “>" C 
HR* (8);: NORMAL 

Now add these lines: 

02 235 PRINT : HOME : PRINT D*"P 
R#2": PRINT CHR* (1): PRI 
NT D*"PR#0“ 

18 311 VTAB 15: HTAB 1: PRINT CH 
R* (13)D*“IN#2“ 

55 312 VTAB 23: HTAB 40: INPUT " 

"; X, Y,B0 

IF 313 IF B0 = 1 OR B0 < 0 THEN 
316 

81 314 VTAB CV: HTAB CH: FLASH : 

PRINT •' NORMAL 

A8 315 GOTO 312 
C2 316 PRINT DS“ IN#0" 

57 317 IF B0 = 1 THEN IN* = CHR* 
<27>: GOTO 319 

8 F 318 IN* = CHR* ( PEEK ( - 163 
84) - 128) 

34 319 POKE - 16368,0 

80 320 VTAB CV: HTAB CH: PRINT " 

F7 395 IF CH >0 THEN HTAB CH 
79 396 IF CV > 0 THEN VTAB CV 
F8 63360 VTAB 1: HTAB LMAX + 5: 
PRINT : HTAB LMAX + 5: 
PRINT D*"IN#2": VTAB 1: 
HTAB LMAX + 5: INPUT “ 

”|X0,Y0,B0 

41 63370 IF B0 = 1 THEN 63430 

81 63380 Y0 = INT (Y0 / 10) 

48 63390 VTAB SELECT + 2: HTAB 3 
: PRINT " 

C9 63400 SELECT = Y0: IF SELECT 
> NITEMS THEN SELECT - 
NITEMS 

30 63410 IF SELECT < 1 THEN SELE 
CT - 1 

14 63420 GOTO 63350 
OC 63430 PRINT D*"IN#0" 

If you're using ProDOS, 
change line 311 to the following: 


II 311 VTAB 15: HTAB 1: PRINT D* 
" IN442" 

The PR#2 and IN#2 in lines 
235, 311, and 63360 assume the 
mouse interface is in slot 2. If your 
interface is in another slot, substi¬ 
tute the appropriate slot number in 
those lines. If you have an Apple 
lie, substitute PR#4 and IN#4 for 
PR#2 and IN#2 in those lines. (Al¬ 
though the lie doesn't have physical 
slots, the mouse is in logical slot 4.) 
Once you've made all the changes, 
install the mouse and rerun the pro¬ 
gram. It works much as described 
above, using the mouse button in¬ 
stead of RETURN for menu 
selections. 

For instructions on entering these listings, 
please refer to "COMPUTEi's Guide to Typing 
In Programs" puPlished bimonthly in compute!. 

Program 1: MOVE Filemaker 

87 100 REM BASIC PROGRAM FOR 
A 8 110 REM GENERATING THE 

44 120 REM BINARY FILE 
2B 130 REM ’MOVE’ 

4C 140 HOME 

1C 150 VTAB 12: PRINT "WORKING . 

92 160 FOR I = 0 TO 459 
21 170 READ A 
CC 180 POKE 36915 + I, A 
81 190 VTAB 12: HTAB 13: PRINT I 
+ 1 

DE 200 NEXT I 

FF 210 PRINT CHR* (4) “BSAVE MOVE 
,A36915, L460" 

2A 220 PRINT : PRINT "DONE!" 

A 8 230 DATA 173,89,170,72,165,21 
7,72,165,118,72,169 
3F 240 DATA 2,133,118,169,255,13 
3,217,169,191,133,51 
50 250 DATA 169,0,133,243,76,86, 
144,76,86,76,86 

88 260 DATA 76,86,169,80,133,133 

,169,144,160,0,162 
33 270 DATA 5,32,254,144,76,104, 
144,76,104,169,102 
35 280 DATA 133,133,169,144,160, 
0,162,1,32,254,144 
97 290 DATA 169,0,141,80,144,169 
,4,141,81,144,173 
F5 300 DATA 81,144,201,8,48,14,2 
08,9,173,80,144 

61 310 DATA 201,0,144,5,240,3,76 
,234,144,173,80 

70 320 DATA 144,141,161,144,173, 

81.144.141.162.144.173 

99 330 DATA 0,16,141,82,144,169, 
0,141,83,144,24 

01 340 DATA 169,255,109,102,144, 
141,84,144,169,145,109 
ID 350 DATA 103,144,141,85,144,1 
73,84,144,141,204,144 
80 360 DATA 173,85,144,141,205,1 
44,173,82,144,141,0 
09 370 DATA 16,24,173,102,144,10 

5.1.141.102.144.173 

6 E 380 DATA 103,144,105,0,141,10 
3,144,238,80,144,208 
63 390 DATA 3,238,81,144,76,127, 
144,104,133,118,104 
35 400 DATA 133,217,104,141,89,1 
70,169,141,141,1,2 


C2 410 DATA 169,1,133,52,96,133, 
134,132,135,160,0 
88 420 DATA 169,0,145,133,200,20 
8,2,230,134,138,208 
F3 430 DATA 4,198,135,48,4,202,7 

6.4.145.96.173 

B3 440 DATA 89,170,72,165,217,72 
,165,118,72,169,2 
88 450 DATA 133,118,169,255,133, 

217.169.191.133.51.169 

44 460 DATA 0,133,243,76,60,145, 
76,60,76,60,76 

E 6 470 DATA 60,169,54,133,133,16 
9,145,160,0,162,5 

84 480 DATA 32,228,145,76,78,145 

,76,78,169,76,133 
78 490 DATA 133,169,145,160,0,16 

2.1.32.228.145.169 

E7 500 DATA 255,141,54,145,169,1 
45,141,55,145,173,55 
58 510 DATA 145,201,149,48,14,20 
8,9,173,54,145,201 

85 520 DATA 255,144,5,240,3,76,2 

08,145,173,54,145 

87 530 DATA 141,135,145,173,55,1 

45,141,136,145,173,0 
IE 540 DATA 16,141,56,145,169,0, 

141.57.145.24.169 

B 8 550 DATA 0,109,76,145,141,58, 

145.169.4.109.77 

74 560 DATA 145,141,59,145,173,5 

8.145.141.178.145.173 

40 570 DATA 59,145,141,179,145,1 

73,56,145,141,0,16 
IE 580 DATA 24,173,76,145,105,1, 

141.76.145.173.77 

84 590 DATA 145,105,0,141,77,145 
,238,54,145,208,3 
17 600 DATA 238,55,145,76,101,14 
5,104,133,118,104,133 
22 610 DATA 217,104,141,89,170,1 

69.141.141.1.2.169 

33 620 DATA 1,133,52,96,133,134, 
132,135,160,0,169 

41 630 DATA 0,145,133,200,208,2, 

230,134,138,208,4 
C9 640 DATA 19B, 135, 48,4,202,76, 
234,145,96 

Program 2: Apple II Pull- 
Down Menus 

IC 100 REM LINES 150-850 ARE 
OB 110 REM A SAMPLE PROGRAM 
E 8 120 REM DEMONSTRATING 

86 130 REM PULL-DOWN MENUS 

88 140 REM 

38 150 HIMEM: 36914: REM FOR DOS 
3.3 ONLY. FOR PRODOS USE 
35840 

14 160 NN = 20: REM MAXIMUM NU 
MBER OF ITEMS IN ANY MENU 
C 6 170 DIM MM* (NN) : REM MM*=MENU 
SELECTIONS 

42 180 D* = CHR* (4) 

5C 190 PRINT DVBLOAD MOVE" 

FD 200 FOR I = 1 TO 5 
BE 210 READ MM* (I) 

E2 220 NEXT I 
48 230 HOME 

41 240 FOR I = 1 TO 15 
37 250 PRINT "THIS IS A SAMPLE P 
ULL-DOWN MENU. "; 

EA 260 NEXT I 

B3 270 CV = 13: CH = 16 

12 280 VTAB 21: HTAB 1: PRINT "- 


-... REM 39 Dft 

SHES 

BE 290 PRINT TAB ( 5) "USE ARROW K 
EYS TO MOVE CURSOR" 

35 300 PRINT TAB ( 5) "PRESS CTRL- 
I FOR INSTRUCTIONS" 
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34 310 PRINT TAB ( 8) "PRESS ESC K 

22 850 RETURN 

EY FOR MENU 

A5 62999 REM #63000 

8(1 320 VTAB CV: HTAB CH 

24 63000 REM 

91 330 GET IN* 

EA 63010 REM PULL-DOWN MENU 

62 340 IF IN* = CHR* (9) THEN GO 

81 63020 REM SUBROUTINE 

SUB 690 

3C 63030 REM 

31 350 IF IN* = CHR* (27) THEN 4 

91 63040 BLANK* = " 

C4 360 IF IN* = CHR* (8) THEN CH 

REM 39 SPACES 

= CH - 1 

A4 63050 LMAX = 0:NITEMS = 0 

71 370 IF IN* = CHR* (21) THEN C 

53 63060 REM DETERMINE MENU SIZE 

H - CH + 1 

24 63070 FOR II = 1 TO NN 

D9 380 IF IN* = CHR* (11) THEN C 

59 63080 IF MM* (II) = ”" THEN 63 

V - CV - 1 

120 

53 390 IF IN* = CHR* (10) THEN C 

A3 63090 LL = LEN (MM*(II)) 

V - CV + 1 

62 63100 IF LL > LMAX THEN LMAX 

8 A 400 IF IN* > CHR* (31) THEN P 

- LL 

RINT IN*;:CH = CH + 1: IF 

C2 63110 NITEMS = NITEMS + 1 

CH > 40 THEN CH “ 1:CV = 

CC 63120 NEXT II 

CV + 1 

65 63130 IF LMAX > 28 THEN PRINT 

73 410 IF CH < 1 THEN CH = 1 

"NAME IS TOO LONG": EN 

C4 420 IF CH > 40 THEN CH = 40 

D 

7E 430 IF CV < 1 THEN CV = 1 

83 63140 REM SAVE SCREEN TEXT 

4F 440 IF CV > 20 THEN CV = 20 

9B 63150 CALL 36915 

9A 450 GOTO 320 

A3 63160 REM DISPLAY MENU 

36 460 REM THE FOLLOWING LINE AC 

BA 63170 POKE 32,5: POKE 33, LMAX 

TIVATES THE MENU 

+ 5: POKE 34,0: POKE 3 

33 470 TITLE* = "MENU": GOSUB 63 

5,NITEMS + 4: REM SET T 

040 

EXT WINDOW FOR MENU SIZ 

59 480 ON SELECT GOTO 280,490,50 

E 

0,510,590 

6 F 63180 HOME 

59 490 HOME : PRINT "THE FIRST F 

32 63190 INVERSE : PRINT LEFT* ( 

UNCTION OF YOUR PROGRAM G 

BL*,LMAX + 5) 

OES HERE": GOTO 520 

D4 63200 VTAB 1: HTAB 3 + ((LMAX 

74 500 HOME : PRINT "THE SECOND 

- LEN (TITLE*)) / 2): 

FUNCTION OF YOUR PROGRAM 

PRINT TITLE* 

GOESHERE": GOTO 520 

CD 63210 FOR II = 1 TO NITEMS + 

18 510 HOME : PRINT "THE THIRD F 

2 

UNCTION OF YOUR PROGRAM G 

1C 63220 VTAB II + 1: HTAB 1: PR 

OES HERE": GOTO 520 

INT " "; 

3F 520 VTAB 24: PRINT "PRESS ANY 

6 C 63230 HTAB LMAX + 5: PRINT " 

KEY TO CONTINUE ... 


87 530 GET A* 

El 63240 1 NEXT II 

35 540 FOR I = 1 TO NITEMS 

Cl 63250 POKE 35,24 

97 550 MM* (I) = 

IF 63260 PRINT LEFT* (BL*, LMAX + 

ED 560 NEXT I 

5) ; 

81 570 RESTORE 

17 63270 POKE 35,NITEMS + 4 

IF 580 GOTO 200 

D8 63280 VTAB 1 

25 590 HOME : PRINT "GOOD-BYE!": 

7D 63290 NORMAL 

END 

AB 63300 FOR 11 = 1 TO NITEMS 

99 600 DATA "LEAVE MENU" 

78 63310 HTAB 4: VTAB II + 2: PR 

CD 610 DATA "FIRST SELECTION" 

INT MM*(II) 

71 620 DATA "SECOND SELECTION" 

D4 63320 NEXT II 

81 630 DATA "THIRD SELECTION" 

83 63330 REM MAKE SELECTION 

AE 640 DATA "QUIT PROGRAM" 

99 63340 SELECT = 1 

98 650 END 

SB 63350 HTAB 3: VTAB SELECT + 2 

93 660 REM 

: PRINT ">“ CHR* (8); 

8 E 670 REM INSTRUCTIONS 

43 63360 GET SELECT* 

97 680 REM 

98 63370 HTAB 3: VTAB SELECT + 2 

6 C 690 CALL 36915 

: PRINT " “ 

85 700 HOME : INVERSE : PRINT BL 

A4 63380 IF SELECT* = CHR* (13) 

ANK* 

THEN 63480 

DC 710 VTAB 1: HTAB 14: PRINT "I 

DF 63390 IF SELECT* < > CHR* (10 

NSTRUCTIONS": NORMAL : VT 

) AND SELECT* < > CHR* 

AB 3 

(21) THEN 63430 

6 B 750 PRINT "FOR THIS SAMPLE PR 

18 63400 SELECT = SELECT + 1 

OGRAM, YOU CAN MOVE” 

16 63410 IF SELECT > NITEMS THEN 

12 760 PRINT "THE CURSOR WITH TH 

SELECT - 1 

E ARROW KEYS AND TYPE" 

14 63420 GOTO 63350 

39 770 PRINT "ON THE SCREEN. WH 

54 63430 IF SELECT* < > CHR* (11 

EN YOU PRESS ESC, THE" 

) AND SELECT* < > CHR* 

64 780 PRINT "COMPUTER WILL DISP 

(8) GOTO 63350 

LAY A PULL DOWN MENU." 

41 63440 SELECT = SELECT - 1 

38 790 PRINT "USE THE ARROW KEYS 

83 63450 IF SELECT < 1 THEN SELE 

TO MOVE THE SELEC-" 

CT «= NITEMS 

47 800 PRINT "TION CURSOR TO THE 

24 63460 GOTO 63350 

DESIRED OPTION, THEN" 

5C 63470 REM RESTORE SCREEN TEXT 

9A 810 PRINT "PRESS RETURN TO SE 

B3 63480 CALL 37145 

LECT IT." 

94 63490 POKE 32,0: POKE 33,40: 

42 820 VTAB 24: PRINT "PRESS ANY 

POKE 34,0: POKE 35,24: 

KEY TO CONTINUE ... 

REM RETURN THE TEXT WI 

DA 830 GET A* 

NDOW TO NORMAL 

61 840 CALL 37145 

72 63500 RETURN © 


Save Your 
Copies of 
COMPUTE! 

Protect your back issues 
of COMPUTE! in durable 
binders or library cases. 
Each binder or case is 
custom-made in flag-blue 
binding with embossed 
white lettering. Each holds 
a year of COMPUTE!. Or¬ 
der several and keep 
your issues of COMPUTE! 
neatly organized for quick 
reference. (These binders 
make great gifts, too!) 



Binders 

$8.50 each; 
3 for $24.75; 
6 for $48.00 


Cases: 

$6.95 each; 
3 for $20.00; 
6 for $36.00 


(Please add $2.50 per unit 
for orders outside the U.S.) 

Send in your prepaid order 
with the attached coupon 


Mail to: Jesse Jones Industries 
P.O. Box 5120 
Dept. Code COTE 
Philadelphia, PA 19141 
Please send me-COM¬ 

PUTE! □ cases □ binders. 

Enclosed is my check or money 

order for $-(U.S. funds 

only.) 

Name- 

Address- 

City- 

State-Zip- 

Satisfaction guaranteed or money 
refunded. 

Please allow 4-6 weeks for delivery. 













Using The 

Atari 130XE 
And DOS 2.5 


The Atari 130XE is the first computer 
in Atari's XE line and by far the least 
expensive 128K RAM computer on 
the market. Here's a guide to using 
the new features of the 130XE and the 
latest version of Atari DOS. 


Making good on its promise to con¬ 
tinue supporting the 8-bit line of 
computers first introduced in 1979, 
Atari recently brought out the 
130XE, its most powerful 8-bit ma¬ 
chine yet. Atari also started distrib¬ 
uting free copies of its new disk 
operating system, DOS 2.5, to solve 
some compatibility problems be¬ 
tween the single-density DOS 2.0 
and the enhanced-density DOS 3. 

Both products are evolutionary 
rather than revolutionary. DOS 2.5 
bears a strong resemblance to DOS 
2.0 and is designed to smoothly 
handle both Atari disk formats. 
Likewise, the 130XE has much in 
common with the XL series and 
original 400/800. Because the 
130XE's internal operating system 
is virtually identical to the 800XL's, 
the 130XE works with all existing 
Atari peripherals and nearly all the 
software. Nevertheless, the 130XE 
does incorporate some features not 
found on earlier Ataris: 

• 128K of Random Access 
Memory (RAM), with the extra 64K 
accessible by bank-switching in 
16K banks. Without bank-switching, 
the amount of free memory for 
BASIC programs remains the same 
as on 48K and 64K Ataris—about 


Tom R, Halfhill, Editor 

32K or 37K, depending on whether 
DOS is booted. 

• A high-speed RAM disk op¬ 
tion for the extra 64K when DOS 
2.5 is booted with a special startup 
file. (A RAM disk is a disk drive 
simulated in memory; you can save 
and load files much faster with a 
RAM disk than with a conventional 
disk drive, although the contents of 
the RAM disk are erased when 
power is shut off.) The RAM disk 
can be disabled if you want to use 
the extra 64K for other purposes. 

• Revision C Atari BASIC. The 
130XE's BASIC has been cured of 
the infamous lockup bug that 
plagued the revision A BASIC car¬ 
tridge sold for the 400, 800, and 
1200XL, and the even-worse bugs 
that infested revision B BASIC in 
the 600XL and 800XL when Atari 
tried to fix revision A. 

• Enhanced Cartridge Interface 
(ECI) for future expansion. The ex¬ 
pansion connector found on the 
rear of the 600XL and 800XL has 
been slightly redesigned for the 
130XE. The new ECI is supposed to 
be more versatile than the rarely 
used XL connector, allowing you to 
add faster disk drives, hard disks, 
and other devices—none of which 
have been announced, however. 
(Don't confuse the ECI with the 
ROM cartridge slot, which is fully 
compatible with cartridges made 
for older Atari computers.) 

• Chroma and luma video out¬ 
puts for sharper screen displays. 
This allows you to hook up the 
130XE to video monitors with sepa¬ 


rate chroma and luma inputs for a 
much sharper image than with nor¬ 
mal composite video. The old Atari 
800 had this feature, but it was 
eliminated on later models. 

Dual-Personality DOS 

Before examining the 130XE's new 
features in greater detail, let's cover 
the new functions of DOS 2.5, since 
they affect all users of 8-bit Atari 
computers as well as 130XE 
owners. 

First of all, if you don't have a 
copy of DOS 2.5, get one soon. 
Atari is shipping DOS 2.5 with 
1050 disk drives and distributing it 
free through user groups, electronic 
bulletin boards, and the Atari fo¬ 
rum on CompuServe. It is quickly 
replacing DOS 3 because it inte¬ 
grates the best features of existing 
DOS versions, is compatible with 
all Atari computers, and works in¬ 
terchangeably with both single¬ 
density (810 format) and 
enhanced-density (1050 format) 
disk drives. (Of course, enhanced 
density disks are still unreadable on 
810 drives.) 

The new DOS menu is identi¬ 
cal to the DOS 2.0 menu except for 
one extra feature: option P, Format 
Single. Since DOS 2.5 is a dual¬ 
density DOS, it must be capable of 
formatting disks for both single 
density and enhanced density. 
Option P formats a disk in single 
density, leaving 707 sectors free 
(about 88K of storage). Option I, 
Format Disk, now defaults to en¬ 
hanced density, leaving 1010 sec¬ 
tors free (about 126K). Also, one 
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existing option has been slightly 
changed: Option J, Duplicate Disk, 
now formats the target disk before 
copying. 

Three new utility files are in¬ 
cluded with DOS 2.5. The first, 
SETUP.COM, lets you customize 
DOS in various ways without the 
POKEs that used to be necessary. 
For instance, you can significantly 
speed up disk accesses by turning 
off the write-with-verify mode. You 
can also set up one of three 
AUTORUN.SYS files: the usual RS- 
232 handler for the 850 Interface 
Module; a file which automatically 
boots a BASIC program; or a file 
which boots both the RS-232 han¬ 
dler and a BASIC program. 

The second utility, DISKFIX- 
.COM, can help clean up garbled 
disks by closing open files and veri¬ 
fying that allocated sectors corre¬ 
spond to information in the disk 
directory. It can even recover de¬ 
leted files, as long as new data 
hasn't been saved over the deleted 
data. The third utility, COPY- 
32.COM, converts DOS 3 files to 
2.0/2.5 format. All three utilities 
guide you with- screen prompts and 
are nearly foolproof. 

New Disk Commands 

DOS 2.5 also makes a few addition¬ 
al disk commands available in 
BASIC. There are now two meth¬ 
ods of reading a disk directory: 
OPEN #1,6,0,"D:*.*":FOR X=1 TO 
1E9:GET #1,A:? CHR$(A);:NEXT X 
OPEN #1,7,0,"D:*.*":FOR X=1 TO 
1E9:GET #1,A:? CHR$(A);:NEXT X 

The first method is the same as 
before. But the second method 
identifies files in the directory 
which cannot be accessed from 
DOS 2.0 because they occupy extra 
sectors on an enhanced-density 
disk. These files are flagged by a 
pair of less-than/greater-than sym¬ 
bols, such as <FILENAME.BAS>. 

Also, there are now three ways 
to format a disk from BASIC: 

XIO 253,#1,0,0,"D1:" 

XIO 253,#1,34,0,"D1:" 

XIO 254,#1,0,0,"D1:" 

The first XIO statement for¬ 
mats a disk in single density. The 
second formats in enhanced densi¬ 
ty (generating an error 139 if at¬ 
tempted on an 810 drive). The third 
XIO statement attempts to format in 
enhanced density, then switches to 


single density if the drive isn't 
1050-compatible. 

Incidentally, if you select op¬ 
tion J (Duplicate Disk) with DOS 
2.5 when using a 1050 drive, the 
disk is automatically formatted in 


Memory Location 54017 (130XE Only) 
Bit Position Function 


enhanced density before copying 
starts. Keep this in mind if you're 
duplicating a disk for someone who 
doesn't have an enhanced-density 
drive. Instead, you'll have to format 
the destination disk for single den¬ 
sity (option P) and then copy the 
source disk one file at a time. 


Instant DOS 

The 130XE's extra 64K RAM can be 
used as either a superfast RAM disk 
with DOS 2.5 or as additional mem¬ 
ory for programming. Of these two 
options, the RAM disk is by far the 
easiest to use, especially for those 
who aren't too familiar with bank¬ 
switching or bit manipulations. 

The only accessory you need to 
set up a RAM disk with the 130XE 
is a free DOS 2.5 file called RAM- 
DISK.COM. When you boot DOS 
2.5 on a 130XE, RAMDISK.COM 
automatically initializes the RAM 
disk and loads two DOS files: 
DUP.SYS and MEM.SAV 
DUP.SYS is the DOS utility pack¬ 
age—the part that normally must 
be loaded from disk when you type 


the DOS command in BASIC. 
Usually this takes 10 to 20 seconds 
or more. But with DUP.SYS stored 
in the RAM disk, the DOS 2.5 menu 
comes up almost instantly when 
you type DOS. 


The second DOS file stored in 
the RAM disk, MEM.SAV, tempo¬ 
rarily saves the portion of BASIC 
memory that would be overwritten 
when you enter DOS. That means 
you can enter DOS and return to 
BASIC without losing your BASIC 
program. 

DUP.SYS and MEM.SAV take 
up 87 sectors total, leaving the 
RAM disk with 412 free "sec¬ 
tors"—51.5K of high-speed 
(though temporary) storage. If you 
don't mind waiting for the DOS 
menu to load from disk as usual, 
you can delete DUP.SYS and 
MEM.SAV from the RAM disk to 
create 499 free sectors (62.3K). 

You access the RAM disk by 
addressing it as drive 8 (D8:). For 
example, LOAD"D8:FILE- 
NAME.EXT" or SAVE"D8:FILE- 
NAME.EXT" Almost all DOS 
commands work, too: Disk Directo¬ 
ry, Delete File, Rename File, Copy 
File, Lock File, Unlock File, Binary 
Load, Binary Save, and Run At 
Address. 

Duplicate File doesn't work be¬ 
cause there's no way to swap disks 


0 If 1, enable OS ROM, disable RAM from $C000-$FFFF (default) 

If 0, disable OS ROM, enable RAM from $C000-$FFFF 
1 If 0, enable BASIC ROM at $A000-$BFFF (default)* 

If 1, disable BASIC ROM, enable RAM at $A000-$BFFF 
2-3 If 00 (decimal 0), switch first 16K bank of extra 64K into 

$4000-$7FFF 

If 01 (decimal 4), switch second 16K bank of extra 64K into 
$4000-$7FFF 

If 10 (decimal 8), switch third 16K bank of extra 64K into 
$4000-$7FFF 

If 11 (decimal 12), switch fourth 16K bank of extra 64K into 
$4000-$7FFF 

4 If 1, deny 6502 access to extra bank (default) 

If 0, allow 6502 access to extra bank 

5 If 1, deny ANTIC access to extra bank (default) 

If 0, allow ANTIC access to extra bank 

6 Not presently used. Default = 1 

7 If 1, disable self-test ROM, enable RAM at $5000-$57FF 

(default after powerup) 

If 0, enable self-test ROM, disable RAM at $5000-$57FF 

•Note: A similar chart on page 122 of the 130XE Owner's Manual indicates 
that bit 1 should always be set. However, bit 1 should not be set unless you 
want to disable BASIC. 
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with a RAM disk (use the two-drive 
Copy File command instead). Also, 
the Format Disk and Duplicate Disk 
commands sometimes cause 
strange results and should be 
avoided. For instance, if you erase 
DUP.SYS by deleting it or format¬ 
ting the RAM disk, then replace it 
by duplicating a floppy disk that 
contains DUP.SYS, you might not 
be able to enter DOS from BASIC 
afterward. 

Aside from these exceptions, 
the 130XE RAM disk* seems to be 
very transparent; it's worked with 
everything we've tried. Although a 
RAM disk is no substitute for a 
floppy—it's at the mercy of power 
interruptions and system crashes— 
it can make a world of difference 
when running disk-intensive appli¬ 
cations, such as assemblers, com¬ 
pilers, database managers, mailing 
list programs, and word processors 
with linked files. 

Like Memory in The Bank 

Using the 130XE's extra memory 
for programming is a lot more diffi¬ 
cult than using it as a RAM disk. For 
one thing, the 6502 microprocessor 
which is the central brain of 8-bit 
Atari computers was not designed 
to access more than 64K memory at 
a time. So even though the 130XE 
has 128K RAM, the 6502 is "blind'' 
to the extra 64K. 

Making the extra memory visi¬ 
ble requires a technique known as 
bank-switching. A block, or bank, of 
memory in the regular 64K is tem¬ 
porarily switched off and replaced 
with a bank from the "hidden" 
memory. Under program control, 
banks can be switched in and out at 
will. It's sort of like reading a book 
and flipping between the page 
you're on and a footnote section in 
the back. 

The 130XE organizes its extra 
64K RAM into four 16K banks. 
Only one of these banks can be 
switched in at a time. When you're 
using the RAM disk, the RAM- 
DISK.COM file and DOS 2.5 han¬ 
dle these details for you 
automatically. But using this mem¬ 
ory for other purposes means writ¬ 
ing your own bank-switching 
routine in BASIC or machine 
language. 

Bank-switching on the 130XE 
is controlled by memory location 


54017 ($D301 hexadecimal). This 
byte was previously reserved for 
port B of the Peripheral Interface 
Adapter (PIA), an input/output 
control chip. On the Atari 400 and 
800, it's used for controller jacks 3 
and 4, which have been eliminated 
on the XL and XE series. On the 
1200XL, part of this byte controls 
the keyboard LEDs, which were 
dropped from the 600XL, 800XL, 
and XE series. On all XLs and XEs, 
location 54017 also lets you switch 
off the operating system and BASIC 
ROM to reveal the full 64K RAM 
underneath. On the 130XE, you can 
now flip other bits at this location to 
switch on any 16K bank of the extra 
64K RAM into the address space 
from 16384 to 32767 ($4000 to 
$7FFF). See the accompanying ta¬ 
ble for a guide to this important 
address. 

Notice that bits 4 and 5 control 
whether the 6502 and ANTIC chips 
can access the extra banks of mem¬ 
ory. Some special applications may 
blind either chip from seeing the 
banks. Also note that the 130XE 
Owner's Manual contains errors on 
page 122 when explaining how lo¬ 
cation 54017 works. The location 
normally contains 241 when the 
RAM disk is booted and 253 other¬ 
wise, not 193; and all bits except bit 
1 should be set for normal 
operations. 

If you're an experienced ma¬ 
chine language programmer, you 
shouldn't have any trouble ma¬ 
nipulating the bits at location 
54017. BASIC programmers won't 
have it so easy, because bit-flipping 
is rarely required in BASIC and 
Atari BASIC lacks bitwise opera¬ 
tors. So try this formula: 

POKE 54017,193+4*&fl«fc+16*morfc 
where bank is the 16K bank you 
want to select (0 = bank 1, 

1 = bank 2, 2 = bank 3, 3 = bank 
4) and mode chooses which chip has 
access to the extra banks 
(0 = 6502/ANTIC, 1 = ANTIC, 

2 = 6502, 3 = neither). 

A word of caution: One wrong 
POKE into this critical memory lo¬ 
cation could instantly disable the 
operating system or BASIC or both, 
triggering a hopeless system crash. 
The only recovery might be to 
switch the machine off and then on 
again, wiping out your program. So 
be careful when experimenting. @ 


Atari 

Animation 

With 

P/M 

Graphics 

Part 2 

Robert J, Powell 

Part 1 of this series introduced the 
basic concepts of Atari player/missile 
graphics and showed how to display 
all four player strips on the screen. 
This month, Part 2 demonstrates how 
to redefine players into any shapes 
you want and how to move them 
horizontally. 


If you ran last month's example 
program, you saw the Atari's play¬ 
ers as they really appear: four col¬ 
ored strips which are eight bits 
wide and taller than the screen. To 
really make use of player/missile 
graphics, your program must trans¬ 
form these featureless strips into 
shapes of your own design. It isn't a 
difficult task, though it helps if you 
have a grasp of binary numbering. 
But even if you know nothing about 
binary, we'll provide plenty of step- 
by-step examples so you can learn 
by experimentation. 

First, run last month's program 
again. (For those who missed it, it's 
listed below as Program 1.) When 
the program finishes, you should 
see four colored strips at the right 
side of the screen and the READY 
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prompt at the left. Don't press SYS¬ 
TEM RESET or any other keys for 
now; we'll illustrate how shapes are 
defined by changing one of these 
players in direct mode so you can 
see the effects immediately. 

If you refer to the P/M memo¬ 
ry map in Part 1, you'll notice that 
the memory area for the four play¬ 
ers extends from PMBASE + 1024 
to PMBASE+2048. That's a total of 
1,024 bytes, or IK. (Remember, this 
program is using single-line resolu¬ 
tion P/M graphics, so each of the 
four players is 256 bytes tall. If it 
were using double-line resolution, 
each player would be only 128 
bytes tall, and player memory 
would extend from PMBASE+512 
to PMBASE + 1024.) 

The numbers stored in this 
memory area determine the shape 
of each player. Right now, the 
memory area for all four players is 
filled with the number 255, POKEd 
there by line 90 of Program 1. The 
players appear as solid strips be¬ 
cause 255 is the largest number 
which can be stored in a single byte. 
The key to defining a shape is to 
selectively display only parts of the 
player strip by POKEing numbers be¬ 
tween 0 and 255 into the player's 
memory area. 

Building A Box 

Let's start by redefining the shape 
of player 0 (by custom, the four 
players are numbered 0 to 3). Refer¬ 
ring again to the P/M memory map 
in Part 1, notice that player 0's 
memory extends from PMBASE + 
1024 to PMBASE+1280 (256 bytes). 
This is the target for our POKEs. In 
direct mode—that is, without a line 
number—type this line and press 
RETURN; 

FOR X=PMBASE+1024 TO PM 
BASE+12B0:POKE X,0:NEXT 
X 

You should see the player 0 
strip disappear. Why? Because this 
line POKEs 256 zeros into the 
memory area for player 0, erasing 
the 255s previously stored there. 
Notice that players 1, 2, and 3 re¬ 
main unaffected. 

Now let's restore part of the 
player 0 strip to make a simple 
shape. One by one, enter the fol¬ 
lowing lines, pressing RETURN 
each time: 


POKE PMBASE+1152,255 
POKE PMBASE+1153,129 
POKE PMBASE+1154,129 
POKE PMBASE+1155,129 
POKE PMBASE+1156,255 

Each time you press RETURN, 
you should see a hollow box taking 
shape where the player 0 strip used 
to be. If you examine the POKE 
statements, you'll notice that the 
first number in each statement is a 
memory address in the middle of 
the player 0 memory area. These 
addresses determine the shape's 
vertical position within the strip— 
and therefore its vertical position 
on the screen. 

The second number in each 
statement actually defines part of 
the box. Experiment by POKEing 
other numbers between 0 and 255 
into these addresses (as well as oth¬ 
er addresses in the player 0 memo¬ 
ry area). Once you learn how these 
numbers are arrived at, you can 
create almost any shape you want. 


Patterns Of Bits 

The numbers between 0 and 255, 
when POKEd into a byte, represent 
bit values in the binary number sys¬ 
tem. These bit values translate di¬ 
rectly into player shapes. 

A byte contains eight bits, or 
positions. Each position has a dif¬ 
ferent value ranging from 1 to 128. 


When a certain bit position in a 
player/missile strip is turned "on," 
it appears onscreen as a tiny dot. 
Bits which are turned "off" do not 
appear onscreen. To define a shape, 
then, you have to figure out which 
bits to turn on, add up the bit values 
of their positions, and POKE the 
resulting number into the appropri¬ 
ate memory address. 

The accompanying figure 
makes this explanation more clear. 
It shows the bit pattern for a player 
defined as a happy face. The bit 
values are the numbers running 
across the top of the figure; notice 
now the values double for each bit 
position running from right to left. 

The numbers running down 
the side of the figure are the byte 
values, or the sums of the bit values 
for each byte. To arrive at the byte 
values, you add up all the bit values 
for "on" bits in each row. For in¬ 
stance, the top row, or byte, has two 
bit positions turned "on": bits 8 and 


16. Therefore, the byte value for 
that row is 8 + 16, or 24. The next 
byte has four bit positions turned 
"on": bits 4, 8, 16, and 32. There¬ 
fore, the byte value is 4 + 8 + 16 
+ 32, or 60. All the other byte 
values are determined in a similar 
fashion. These are the numbers you 
POKE into the player memory area 
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to make the shape appear. 

To see this in action, press 
SYSTEM RESET and run Program 1 
again. When it stops, fill the player 
0 memory area with zeros using the 
FOR-NEXT loop as we did before. 
Then enter these lines, pressing RE¬ 
TURN after each one: 

POKE PMBASE+l152,24 
POKE PMBASE+l153,60 
POKE PMBASE+l154,126 
POKE PMBASE+l155,90 
POKE PMBASE+l156,219 
POKE PMBASE+l157,255 
POKE PMBASE+1158,219 
POKE PMBASE+l159,195 
POKE PMBASE+l160,102 
POKE PMBASE+l161,60 
POKE PMBASE+l162,24 

Each time you press RETURN, an¬ 
other byte of the player shape 
should appear. 

Try designing your own shape 
using a blank version of the grid in 
the figure. After coloring in each 
square to make the shape, add up 
the bit values to arrive at the num¬ 
bers for your POKE statements. Re¬ 
member that your shape can be 
only eight bits wide, but can be as 
tall as the screen. 

Storing Player Shapes 

When you're writing a program 
that defines player shapes, it's in¬ 
convenient to POKE the byte val¬ 
ues into memory in direct mode, of 
course. Usually the byte values are 
stored in a DATA statement, re¬ 
trieved by a READ statement with¬ 
in a FOR-NEXT loop, and then 
POKEd into memory. 

To see an example, add these 
lines to Program 1: 

XT x 

100 for x-i TO 11 

110 READ A 

120 POKE PMBASE+1152+X,A 
130 NEXT X 

140 DATA 24,60,126,90,219 
,255,219,195,102,60,2 


Line 90 clears out the player 
memory area with zeros. Lines 
100-130 are the loop which READs 
the DATA in line 140. Notice that 
line 120 POKEs the byte values into 
the middle of the player 0 memory 
area. To define this shape as player 
1, you could simply add 256 to this 
address; to define it as player 2, add 
512; and to define it as player 3, add 
768. 


Missiles are defined in a simi¬ 
lar way, with one important differ¬ 
ence: Because each missile is only 
two bits wide, all four missiles 
share the same amount of memory 
as a single player. That means the 
bit patterns are two-bit slices of the 
grid in the figure. By referring to 
this figure and the P/M memory 
map in Part 1, you can see that 
missile 0 is defined by adding the 
bit values 1 and 2; missile 1 is de¬ 
fined by the bit values 4 and 8; 
missile 2 is defined by the bit values 
16 and 32; and missile 3 is defined 
by the bit values 64 and 128. 

Of course, with only two bits to 
work with, missile shapes are pret¬ 
ty limited. That's why they're used 
mostly in games as "bullets" fired 
by player shapes. 

Horizontal Animation 

By now you're probably wondering 
how to animate the shapes you've 
created. We'll tackle horizontal 
movement first because it's the eas¬ 
iest; we'll save vertical animation 
for Part 3 next month. 

In Part 1 we mentioned that 
each player has a horizontal position 
register, a memory location which 
determines the horizontal place¬ 
ment of the player on the screen. 
These memory locations are 52348 
for player 0, 53249 for player 1, 
53250 for player 2, and 53251 for 
player 3. Line 80 of Program 1 
POKEs these registers to group all 
four players together near the right 
edge of the screen. Any number 
from 0-255 can be POKEd into the 
registers, but the range of numbers 
which position the player on the 
visible part of the screen is only 
about 45 to 205. 

Moving a player horizontally is 
as simple as POKEing different 
numbers into the appropriate posi¬ 
tion register. Add these lines to 
Program 1: 

100 FOR X=45 TO 205 
110 POKE 53248.X 
120 NEXT X 

When you type RUN, this loop 
moves player 0 across the screen 
from left to right. By changing the 
register address in line 110, you can 
move any of the four players. 

Missiles are moved horizontal¬ 
ly like players; the four horizontal 


position registers for the missiles 
are at memory locations 53252 to 
53255. To see the missiles on¬ 
screen, add these lines to Program 
1 : 

85 POKE 53252,140:POKE 53 

253,144:POKE 53254,148 

:POKE 53255,152 
90 FOR X-PMBASE+768 TO PM 

BASE+2048:POKE X,255:N 

EXT X 

One-Way Registers 

There's only one tricky detail to 
keep in mind when manipulating 
the horizontal registers—they are 
write-only memory locations, 
which means they can be POKEd 
but do not return useful values 
when PEEKed. This makes your 
programming more complicated, 
because you can't keep track of a 
player or missile's horizontal screen 
position merely by PEEKing its hor¬ 
izontal register. Instead, you have 
to set aside a variable for each ob¬ 
ject to store its horizontal position. 
Every time the object moves, your 
program must update the corre¬ 
sponding variable. 

This technique is demonstrat¬ 
ed in Program 2. It's a modified 
version of Program 1 that lets you 
move player 1 left or right with a 
joystick plugged into port 1. Notice 
how the variable PI keeps track of 
the player's horizontal position. 
Also notice how player 1 moves 
over players 2 and 3, but beneath 
player 0. These different display pri¬ 
orities let your programs simulate 
3-D graphics effects. 

Try modifying Program 2 
yourself to move the other three 
players. Be careful about moving 
the player too far off the edges of 
the screen, though—if the program 
tries to POKE a value smaller than 0 
or greater than 255 into the hori¬ 
zontal register, it will crash with an 
error. 

In Part 3, we'll cover a method 
of vertical animation and a few oth¬ 
er details about player/missile 
graphics as well. 

For instructions on entering these listings, 
please refer to “COMPUTEi's Guide to Typing 
In Programs" published bimonthly in COMPUTE!. 

Program 1: P/M Demo 

NF 10 POKE 106, PEEK ( 106)-8 
NF 20 POKE 54279, PEEK < 106) 


102 COMPUTEI October 1985 





Lightning 
Renumber 
For Atari 

Raymond Citak 


HD 30 GRAPHICS 0sSETCOLOR 2, 

CH 40 PMBASE—PEEK < 106) (256 
HL 30 POKE 559,62 
PH 60 POKE 53277,3 
DP 70 POKE 704,68: POKE 705,1 
98:POKE 706,168:POKE 7 
07,148 

PA 80 POKE 53248, 160:POKE 53 
249,170:POKE 53250,180 
:POKE 53251,190 
DN 90 FOR X-PMBASE+1024 TO P 
MBASE+2048:POKE X,255: 
NEXT X 


Program 2: Horizontal 
Animation 

10 POKE 106,PEEK(106)-8 
20 POKE 54279,PEEK(106) 

30 GRAPHICS 0:SETCOLOR 2, 

0,0 

40 PMBASE-PEEK(106)*256 
50 POKE 559,62 
60 POKE 53277,3 
70 POKE 704,68:POKE 705,1 
98:POKE 706,168:POKE 7 
07,148 

80 POKE 5324B,160:POKE 53 
249,170:POKE 53250,180 
:POKE 53251,190 
90 FOR X-PMBASE+1024 TO P 
MBASE+2048:POKE X,255: 
NEXT X 
100 Pl-170 
110 S—STICK(0) 

120 IF S—7 THEN P1=P1+1:I 
F PI>255 THEN Pl-255 

130 IF S-ll THEN P 1 =P1-1: 
IF P1<1 THEN Pl-1 

131 POKE 53249,PI 

140 GOTO 110 @ 


To receive 
additional 
information from 
advertisers in 
this issue, use 
the handy reader 
service cards in 
the back of 
the magazine. 


This fast, convenient utility renum¬ 
bers any BASIC program. It runs on 
any Atari 400, 800, XL, or XE with at 
least 48K RAM. 


If you write BASIC programs, you 
know how frustrating it can be to 
run out of space to insert program 
lines, especially when the program 
is nearly finished. Since Atari 
BASIC has no RENUMBER com¬ 
mand, you may be forced to renum¬ 
ber dozens of lines manually, 
creating the risk that you'll inadver¬ 
tently delete or misnumber a line. 
“Lightning Renumber" removes 
that worry and saves a lot of time, 
too. It can handle any Atari BASIC 
program, and it renumbers internal 
line references as well as the lines 
themselves. Because it uses a ma¬ 
chine language (ML) routine, it 
does the job in only a few seconds. 
But it's easy enough for anyone to 
use, even if you don't know any¬ 
thing about machine language. 

Type in and save Lightning Re¬ 
number as listed below, then run it. 
The program offers two options. 
You can either write the ML routine 
as a binary (machine language) file 
to disk, or POKE it directly into 
memory. The binary file option is 
straightforward: After you desig¬ 
nate the drive number, the program 
creates and locks a binary file 
named RENUMBER.OBJ on your 


disk. The binary file can then be 
loaded into memory and called 
with a USR statement (see below) 
whenever you like. If you don't 
have a disk drive, select the second 
option to POKE the ML into 
memory. 

Call It With USR 

Once the ML routine is in memory, 
enter NEW and load the BASIC 
program you want to renumber. 
Now you can call the ML routine by 
typing in a USR statement and 
pressing RETURN. The USR state¬ 
ment must include three numbers: 
the address of the routine (always 
38900), the starting line number, 
and the line increment value. For 
example, the statement U=USR 
(38900,10,10) renumbers a pro¬ 
gram so the first line is 10 and the 
rest are numbered in increments of 
10 (20, 30, and so on). To start with 
line 1000 and renumber in incre¬ 
ments of 100, use the statement 
U=USR(38900,1000,100), and so 
on. When the message **RENUM- 
BERED** appears, the job is com¬ 
plete. At this point, you should 
resave the renumbered program. 

The routine checks for several 
errors. First, it makes sure the re¬ 
numbered program will not have 
line numbers above 32767. If the 
values you specify in the USR state¬ 
ment would create a line number 
greater than 32767, you'll get the 


October 1985 COMPUTEI 103 







message ERROR — CHANGE 
YOUR USR ARGUMENTS. Enter a 
new USR statement with appropri¬ 
ate values. 

Incorrect line references are 
detected as well. For instance, your 
program may contain the statement 
GOTO 300 when no line 300 exists. 
When such an error occurs, you'll 
see the message ERROR — LINE # 
MISMATCH. Mismatched line ref¬ 
erences (300 in this example) are 
replaced by 55555, and the rest of 
the program is renumbered as usu¬ 
al. When this error message ap¬ 
pears, you must LIST the program 
and change any 55555 line refer¬ 
ences to the correct line numbers 
before resaving the program. 

TRAP statements (except for 
TRAP 40000) are also renumbered 
by this routine. However, it cannot 
change computed line references 
(GOTOs or GOSUBs that use a 
variable to refer to a line number). If 
your program uses computed line 
references, LIST the program and 
change them yourself after the rest 
of the program is renumbered. 

Possible Memory Conflicts 

Although Lightning Renumber is 
designed to be reliable, it's possible 
to disrupt it by running BASIC pro¬ 
grams. The ML normally resides in 
high memory just beneath the dis¬ 
play list in GRAPHICS 0. Running 
a BASIC program that's very long 
or that uses the same memory area 
for other graphics modes, player- 
missile data, etc., may overwrite 
and destroy the ML. When that oc¬ 
curs, trying to call the routine may 
crash the computer (and destroy 
your program). When in doubt, 
save your BASIC program and re¬ 
load the binary file (RENUMBER- 
.OBJ) from disk; then reload the 
BASIC program and call the routine 
with USR. 

If you use this routine fre¬ 
quently, you may want to include 
the USR call within the BASIC pro¬ 
gram itself. Since line 32767 will 
never be renumbered, place the 
USR statement in that line. Then 
you can renumber the program at 
any time by entering GOTO 32767. 

You could also create an 
AUTORUN.SYS file that loads 
Lightning Renumber into memory 
automatically when the disk is 
booted. If you already have an 


AUTORUN.SYS file on the disk, 
you can append the renumber file 
to it from the DOS menu. Choose 
the Binary Save option, then type in 
AUTORUN.SYS/A,97F4,9BFF. 
Lightning Renumber will be ap¬ 
pended to the existing AUTO¬ 
RUN.SYS file and will load 
automatically when you boot that 
disk. 

If you want to save typing, 
send a blank disk or tape, a self- 
addressed postage-paid mailer, and 
$3 to: 

Raymond Citak 
1514 Park Avenue 
Laramie, WY 82070 

Special thanks to W. A. Bell for 
his useful line dump routine which 
appears in COMPUTERS First Book 
of Atari. 

Lightning Renumber 

For instructions on entering this listing, please 
refer to "COMPUTEi's Guide to Typing In 
Programs" published bimonthly in COMPUTE!. 

JP 10 DIM DRIVE* (2) , A* (15) : P 
OKE 709,0:POKE 710,168 
:POKE 712,146 
01)20 ? CHR* ( 125) : ? s? " 



H6 30 ? "TO LOAD THIS OBJECT 
FILE DIRECTLY 
<5 SPACES)INTO MEMORY 
AND NOT TO DISK, PRESS 

EE 40 ? "KEY "s CHR* (34) ; "L" j 
CHR* < 34)| ". REQUIRES 
4BK MEMORY."i? "PRESS 
ANY KEY FOR DISK WRITE 

CB 50 OPEN #4,4,0, "K"i BET #4 
,Z:IF Z-76 THEN 1440 
00 60 CLOSE #4 

IN 70 ? CHR* (125) l? !? i? " 
{6 SPACESl MrlW O U I SNlJ -wnr 

NJ 80 ? i? " * * REQUIRES 48K M 
EMORY AND DOS v.2.**" 

NJ 90 ? i? "To which disk dr 
ive would you like the 
file written to <D1,D2 
,D3,or D 4)"j 
LP 100 INPUT DRIVE* 

NO 1 10 SOSUB 1380 
LC 120 ? i? "One moment whil 
e I write the file to 
"i? DRIVE*;"..." 

IN 1 30 A*(1,2)-DRIVE*«A*(3,1 
5)-"iRENUMBER.OBJ" 

HB 140 TRAP 3001 OPEN #2,8,0, 
A* 

GG 150 TRAP 180 
OL 160 READ BiPUT #2,B 
61 170 SOTO 160 
GE 180 CLOSE #2 
PH 1 90 OPEN #1 , 12,0, A* I XIO 3 
5,#1,0,0,A* 

FH 200 CLOSE #1 
OF 210 ? CHR* (125)1? 

ON 220 ? "File is now writte 
n to "jDRIVE*|".“ 

PK 230 ? "You may now use th 
e DOS menu selection' 


L’ to place the renum 
ber program " 

EK 240 ? "into memory. Retu 
rn to BASIC, load 
{3 SPACES)file to be 
renumbered, and use" 

ON 250 ? "U-USR (38900, start 
ing line number, 

{4 SPACES)increment) 
to renumber your prog 

GE 260 ? "Or place the USR s 
tatement into your p 
rogram at line 32767. 
Watch for" 

PN 270 ? "possible overwrite 
of the renumber 
C4 SPACES)program if 
RUNning a BASIC progr 
am" 

GG 280 ? "that changes BRAPH 
ICS modes, or uses o 
ther high memory." 

GE 290 POKE 709,2021 POKE 710 
, 1481POKE 712,01 END 
HH 300 ? CHR* (125) i? «? "ERR 
OR #"j x? PEEK ( 195 > ; I? 
" trying to write th 

e flie "lFOR 1-1 TO 

500■NEXT I> RUN 
KJ 310 REM THIS DATA FOR DIS 
K WRITE ONLY 

CL 320 DATA 255,255,244,151, 
255,155 

BL 330 REM THIS DATA FOR MEM 
ORY 3B900(*97F4) TO 3 
9935(*9BFF) 

NL 340 DATA 76,80,153,165,13 
6,133,203,165,137,133 
KA 350 DATA 204,169,0,133,20 

5.133.206.133.207.96 
6F360 DATA 201,14,240,1,96, 

152,141,243,151,136 
GN 370 DATA 177,203,32,61,15 

2.165.207.208.10.32 

DL 380 DATA 101,152, 165,207, 

208.3.76.40.152.32 

NG 390 DATA 148,152,172,243, 
151,169,0,133,205,133 
BA 400 DATA 206,133,207,141, 
243,151,200,200,200,2 
00 

DC 4 10 DATA 200,200,96,201,1 
8,240,1,96,136,152 
JH 420 DATA 201,3,240,249, 17 
7,203,201,14,208,244 
IK 430 DATA 136,177,203,201, 

23.240.11.201.24.240 
EH 440 DATA 7,201,4,240,3,76 

,66,152,169,1 

AJ 450 DATA 133,207,96,172,2 
43,151,136,177,203,20 
1 

CA 460 DATA 10,240,32,201,12 
,240,28,201,23,240 
BP 470 DATA 24,201,24,240,20 
,201,13,240,16,201 
HK 480 DATA 4,240,12,201,27, 

240.8.201.35.240 

06 490 DATA 1,96,32,220, 154, 

169.1.133.207.96 

DD 500 DATA 172,243,151,138, 

141.242.151.165.136.1 
33 

CL 510 DATA 205,165,137, 133, 

206.200.177.203.133.2 
12 

CE 520 DATA 200,177,203,133, 

213.200.177.203.133.2 
14 

CJ 530 DATA 200,177,203,133, 
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213,200,177,203,133,2 
16 

HP 540 DATA 200,177,203, 133, 
217,32,198,154,32,210 
hi 350 DATA 217,169,0,141,24 
0,151,141,241,151,160 
HP 560 DATA 0,177,203,200,19 
7,212.20B,6,177,203 
EC 570 DATA 197,213,240,30,3 
2,90,134,160,2,177 
IP 580 DATA 203,24, 101,203,1 
33,205,144,2,230,206 
NH 590 DATA 238,240,151,173, 
240,151,208,3,238,241 
PP 600 DATA 151,76,207,152,1 

73,240,151,141,234,13 
1 

CK610 DATA 173,241,131,141, 

233.131.173.230.131.1 
41 

HL 620 DATA 236,131,173,231, 
131,141,237,131,32,41 
AI 630 DATA 155,24 , 173,23B, 1 
31,109,228, 131,133,21 
2 

AI 640 DATA 173,239, 131,109, 
229,131,133,213,32,17 
0 

DD 630 DATA 217,172,243, 131, 

174.242.131.200.163.2 
12 

CJ 660 DATA 143,203,200,165, 
213, 145,203,200, 163,2 
14 

CO 670 DATA 145,203,200, 165, 

215.143.203.200.165.2 


AD 680 

CO 690 

Iffl 700 
DC 710 

H6 720 
DF 730 

ES 740 
L6 730 
JN 760 
JH 770 
JC 780 
HA 790 
KB B00 
LF 810 
AO 820 
FF 830 
FO 840 
KH 850 
NL 860 
DL B70 

DB 880 


DATA 143,203,200,165, 
217,143,203,96,104,10 
4 

DATA 141,229,151,104, 

141,228,151,104,141,2 
31 

DATA 131,104,141,230, 
131,173,6,228,170,232 
DATA 138,141,134,133, 

141.114.134.141.171.1 
54 

DATA 141,232, 134, 173, 
7,228,141,153,133,141 
DATA 115, 134, 141,172, 

134.141.233.154.173.2 
30 

DATA 131,208,B,173,23 
1,151,208,3,76,244 
DATA 134,32,138,155,1 
62,13,138,72,1B9,244 
DATA 133,32,176,242,1 
04,170,202,16,243,32 
DATA 247,131,160,0,17 
7,203,201,235,240,14 
DATA 201,0,208,20,200 
, 177,203,201,128, 208 
DATA 13,76,2,154,200, 

177.203.201.127.208 
DATA 3,76,2,154,160,2 
,177,203,170,200 
DATA 200,177,203,201, 
22,240,22,201,155,240 
DATA 6,32,8,152,76,20 

2.153.152.133.208 
DATA 230,20B,228,208, 
240,3,76,202, 133, 138 
DATA 24,101,203,133,2 
03,144,2,230,204,76 
DATA 164,153,153,155, 
46,46,46, 103, 110, 105 
DATA 107,114,111,87,1 
35,123,32,247,131,173 
DATA 228,131,133,203, 

173,229,151,133,206,1 
60 

DATA 0,177,203,201,23 


5,240,14,201,0,208 
FC 890 DATA 20,200,177,203,2 
01,128,208,13,76,163 
FA 900 DATA 134,200,177,203, 
201,127,208,3,76,163 
KJ910 DATA 134,160,0,163,20 
3, 143,203,200, 163,206 
PL 920 DATA 143,203,200,177, 

203,170,173,230,131,2 
4 

CC 930 DATA 101,203,133,203, 

173,231,131,101,206,1 
33 

JA 940 DATA 206, 13B, 24 , 1 01,2 
03,133,203,144,2,230 
AH 930 DATA 204,76,13,134,16 
0,0,177,203,201,0 
EL 960 DATA 208,7,200,169,12 
8,209,203,240,1,96 
LE 970 DATA 162,22,138,72,18 
9,140,134,32,176,242 
OA 980 DATA 104,170,202, 16,2 
43,169,66,133,212,169 
FJ 990 DATA 5, 133,213, 169 , B3 
,133,214,133,215,104 
BP 1000 DATA 104,76,43,153,1 
33,72,67,84,63,77 
JC 1010 DATA 83,73,77,32,35, 
69,78,73,76,32 
HI 1020 DATA 45,32,210,207,2 

10.210.197.162.18.13 
8 

AH 1030 DATA 72,189,179,154, 

32,176,242,104,170,2 
02 

BO 1040 DATA 16,243,96,135,1 
33,42,42,32,68,69 
JP 1 050 DATA 82,69,66,77, B3, 
78,69,82,32,42 
HA 1060 DATA 42,153,163,212, 
201,66,208,13,163,21 
3 

BE 1070 DATA 201,4,208,9, 165 
,214,208,5,104,104 
DH 1080 DATA 76,43,133,96,13 

6.132.201.3.240.13 

Cl 1090 DATA 177,203,201,54, 
208,244,104,104,104, 
104 

JB 1100 DATA 76,40,152,96,10 
4,104,104,104,162,36 
FH 1110 DATA 138,72,189,4,15 
3,32,176,242,104,170 
FD 1120 DATA 202, 16,243,96,1 
53,153,46,83,84,78 
JJ 1130 DATA 69,77,83,71,82, 
65,32,82,83,83 
JP 1140 DATA 32,82,83,79,89, 
32,69,71,78,63 
6J1130 DATA 72,67,32,43,32, 
210,207,210,210, 197 
PI 1160 DATA 155,169,0,141,2 

32,151,141,233,151,1 
41 

HN 1170 DATA 238,131,141,239 
,131,162,16,24,78,23 
3 

PL 1180 DATA 131,110,234,151 
,144,40,24,173,238,1 
51 

HB 1190 DATA 109,236, 131,141 
,238,131,173,239,131 
, 109 

ON 1200 DATA 237,151,141,239 
,131,176,133,173,238 
,131 

DC 1210 DATA 24,109,232, 131, 
141,238,151,173,239, 
131 

PH 1220 DATA 109,233, 131,141 
,239,131,24,14,236,1 
31 


6J 1230 DATA 46,237,151,144, 
13,24,14,232,151,46 
AD 1240 DATA 233,151,238,232 
,131,76,134,155,14,2 

32 

BF 1250 DATA 151,46,233,151, 

202,208,176,96,169,2 

33 

CB 1260 DATA 141,240, 151,141 
,241,151,32,247,151, 
160 

JJ 1270 DATA 0, 177,203,208,7 
,200,177,203,201,128 
JD 1280 DATA 240,29,160,2,17 
7,203,24,101,203,133 
P6 1290 DATA 203,163,204,105 
,0,133,204,238,240,1 
51 

HF 1300 DATA 173,240, 131,208 
,3,238,241,131,76,14 
9 

FH 1310 DATA 133,173,240,131 
, 141,234, 151,173,241 
, 131 

FH 1320 DATA 141,233, 151,173 
,230,151,141,236,131 
, 173 

HJ 1330 DATA 231,131,141,237 
,151,32,41,133,24,17 


HC 1340 DATA 23B , 151 , 109,228 
,131,141,238,131,173 
,239 

AH 1330 DATA 131,109,229,131 
,141,239,131,176,14, 
56 

IE 1360 DATA 169,254,237,238 
,151,169,127,237,239 
, 131 

8H 1370 DATA 48,1,96,76,242, 
154 

HJ 1380 REM CK FOR CORRECT E 
NTRY 

FH 1390 IF DRIVE* <1, 1)<>"D" 
OR LEN<DRIVE*)-1 THE 
N 1410 

PI 1400 IF DRIVE* (2,2) - " 1 " 0 
R DR IVE*(2,2)—"2" OR 
DRIVE*<2,2)-"3" OR 
DRIVE*<2,2)-"4" THEN 
1430 

PF 1410 POP i? i? "Error in 
•ntry. Try again... 

CD 1420 FOR Q-l TO 300:NEXT 
Qi? CHR*(125)i? IBOT 
0 70 

FI 1430 RETURN 

PF 1440 REM LOAD DATA INTO M 
EMORY 

IC 1450 CLOSE #4i? i? "Loadi 
ng DATA into memory. 

EE 1460 RESTORE 340: FOR 1-38 
900 TO 3B900+1035:RE 
AD AiPOKE I,A:NEXT I 

FD 1470 ? i? "Load complete. 

NEW this program, 
and LOAD or ENTER yo 
ur BASIC program to" 

IE 1480 7 "be renumbered. T 
hen use U-USRL38900, 
■firet line number, 
increment) to" 

01 1490 ? "renumber the prog 
ram. All error 
l 6 SPACESlchecking i 
a done by the renumb 
er pro- gram." 

IP 1500 POKE 709,202|POKE 71 
0,148:POKE 712,0:END 
© 
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The World Inside the Computer 

Fred D'lgnazio, Associate Editor 


More Adventures Of Junior, The Robot 


Last month I described the trials of 
traveling across the country with a 
personal robot (“A Robot Toddler," 
September 1985). Among other 
things, my Heath HEROjr—nick¬ 
named Junior—had panicked in the 
coat closet of a jetliner and started 
screaming for help, alarming some 
of the passengers. 

We finally got Junior quieted 
down again, but more incidents 
were to follow. When we reached 
Chicago's giant O'Hare Airport, I 
suddenly realized that our connect¬ 
ing flight was at the opposite end of 
the terminal. Would I have to walk 
Junior clear across the airport? 
Luckily, two porters came to my 
rescue and pointed out a luggage 
cart I could rent for only a dollar. A 
moment later Junior and I were sail¬ 
ing along the corridors of O'Hare. 
Junior was perched high on the 
front of the cart singing "Summer¬ 
time! Summertime! Sum-sum¬ 
summertime!" Meanwhile, I was 
pushing the cart like a good rick¬ 
shaw boy and warning people, 
"Watch out for the robot! Please 
clear the way! The robot's trying to 
catch a plane!" 

Drinks For Junior 

I always tried to keep Junior quiet 
when loading him on a jet. I felt the 
best strategy was to keep a low 
profile so nobody would have sec¬ 
ond thoughts about flying with a 
robot. But it was no use. It's like 
accompanying Michael Jackson and 
expecting no one to notice. Every¬ 
one on board always seems to be 
aware of Junior. And everyone 
seems to delight in teasing me 
about him. 

For instance, after stowing Ju¬ 
nior in the closet and collapsing in 
my seat, a man came up and said, 
"Your robot just woke up and left 
the plane!" I leaped to my feet, 
alarmed, and he pushed me gently 
back down. "Just kidding," he said. 


Another time, a flight atten¬ 
dant brought me a soda and a glass 
of champagne. I had ordered the 
soda, but not the champagne. "The 
champagne's for Junior," she ex¬ 
plained, "compliments of the 
captain." 

After one long flight, I headed 
for the men's room as soon as we 
landed. Naturally, I carried Junior 
along. Behind me, a number of men 
who were on the same flight saw us 
enter the men's room. They began 
laughing and followed us. "This 
I've gotta see," said one. I turned 
around and gave him a look of dis¬ 
approval, then disappeared into 
one of the stalls. After all, even a 
robot deserves his privacy. 

Is He Alive Or Isn’t He? 

Often, while waiting around to 
board a plane, I would set Junior on 
the floor, wake him up, then step 
back and quietly observe people's 
reactions. 

It was fascinating. I loved to 
see the childlike curiosity and play¬ 
fulness Junior would evoke in 
adults. And it was amazing to see 
the paradox Junior created in the 
adults' minds. I could almost see 
them wondering, "Is he alive, or 
isn't he?" And, "If he isn't alive, 
why does he seem to be alive?" 
This ambiguity seemed to create a 
tension in many people's minds 
that found its outlet in jokes about 
Junior being my son. 

I observed another paradox as 
well. They seemed to ask them¬ 
selves, "Is this machine a friend or 
an enemy? Is he here to help us do 
our jobs, or will he take our jobs 
away?" 

The person who asked these 
questions the most simply and elo¬ 
quently was the elderly cabbie in 
Roanoke, Virginia, who drove Ju¬ 
nior and me back to my house at 
the end of our journey. The cabbie 
was fascinated by Junior and drawn 
to him, but his fascination was 


mixed with a pinch of fear. He be¬ 
gan speculating about robots like 
Junior becoming humanlike and 
driving taxicabs. "If robots can do 
everything a man can," he said as 
he spat out the window, "we ought 
to hang it up." However, after some 
more thought, he decided: "There 
are just too many complications for 
a robot to be a good cab driver." 
And, referring to the possibility of 
robots getting out of control and 
taking over, he remarked, "There's 
more than one way to shut them 
off!" 

The cabbie's fascination and 
affection for the robot ultimately 
won out over his fear. He pulled up 
in front of my house and turned 
around to face me and Junior. "You 
know something?" he said. "I sort 
of like that old box." 

Time For A Recharge 

When the cabbie dropped us off at 
the end of our trip, we were happy 
to be home and totally exhausted. 
We had traveled almost 7,000 miles 
together, and we had remained the 
best of friends in spite of crowded 
airports, grilling from customs offi¬ 
cials, and Junior's tendency to wan¬ 
der off when I wasn't looking. 

But now our trip was over, and 
boy, were we tired! The suitcases, 
computers, and Junior were 
sprawled across the front yard, and 
I was so groggy that I reclined on 
the grass for a little catnap. 

I had just closed my eyes 
when, in a weak little voice. Junior 
pleaded, "Please charge my bat¬ 
tery." Then he began mumbling a 
song: "All good robots sing this 
song: Doo Dah! Doooooo...." 

"Okay, Junior," I said, getting 
up. "You win." I hefted the little 
robot on my shoulder and carried 
him into the house. 

Five minutes later the two of us 
were fast asleep. © 
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Computers and Society 

David D, Thornburg, Associate Editor 


Of Babbages And Things 


Computer jargon and concepts 
have permeated our language in 
strange ways. This came home to 
me one night when I heard a caller 
on a talk show say that she had 
trouble “interfacing" with her part¬ 
ner. I guess this is just a reflection of 
the pervasiveness of computer 
technology. Every new technology 
spawns its own vocabulary, and 
computers are no exception. 

In fact, the computer industry 
has provided us with both a rich 
assortment of words and a rich col¬ 
lection of concepts that alter how 
we think about our world. While 
the words of technology wax and 
wane in popularity, the concepts 
are longer-lived. This gives us the 
chance to misjudge the newness of 
a concept we have just learned. 
When this happens, a brief look at 
history often shows that what we 
thought was new was known a long 
time ago. I got caught in one of 
these historical time warps last 
spring. I was teaching a graduate- 
level computer course at Stanford 
University and had introduced a 
model of program design that I 
called a microworld. 

To my way of thinking, 
microworlds are made of two kinds 
of things—objects and operators. 
The objects have certain attributes, 
and the operators work on these 
objects to create new instances of 
them. These new instances may in¬ 
herit some or all of the attributes of 
the old objects. Sound like gobble- 
dygook? Read on. 

For example, the microworld 
of arithmetic contains objects we 
call numbers. These numbers have 
attributes (they may be integers, 
decimals, imaginary, etc.). The op¬ 
erators for arithmetic include addi¬ 
tion, subtraction, multiplication, 
and so on. These operators combine 
the number objects to produce new 
numbers. Notice that this way of 
thinking about arithmetic has noth¬ 
ing to do with computers. 


Computer Microworlds 

Because we have devised ways to 
represent both numbers and their 
operations inside computers, the 
microworld of arithmetic is a suit¬ 
able domain for implementation in 
a computer. Of course, the arithme¬ 
tic microworld is not the only one 
we have. For example, word pro¬ 
cessing is a microworld which con¬ 
tains letters as objects and insert 
and delete as operators. 

What I like about this concept 
is that it provides a framework for 
creating flexible computer pro¬ 
grams in nearly any domain. To 
build a microworld, one has to 
identify the objects and operators, 
and then build representations of 
these in the computer using a suit¬ 
able programming language. 

I thought this way of looking at 
programming was fairly new, but I 
soon received the shock of my life 
while reading a collection of papers 
about Charles Babbage and the An¬ 
alytical Engine—a nineteenth- 
century predecessor to the digital 
computer. At the end of one article 
translated into English by Ada 
Augusta, Countess of Lovelace, 
were some notes added by the 
Countess: 

In studying the action of the 
Analytical Engine, we find that 
the peculiar and independent na¬ 
ture of the considerations which 
in all mathematical analysis be¬ 
long to operations, as distin¬ 
guished from the objects operated 
upon and from the results of the 
operations performed upon those 
objects, is very strikingly defined 
and separated. It is well to draw 
attention to this point, not only 
because its full appreciation is es¬ 
sential to the attainment of any 
very just and adequate general 
comprehension of the powers 
and mode of action of the Analyt¬ 
ical Engine, but also because it is 
one which is perhaps too little 
kept in view in the study of math¬ 
ematical science in general. 


Here was my microworld 
model, described by Ada Augusta 
in 1842! 

So Much For Arithmetic 

Lest you think she had only mathe¬ 
matics on her mind, she went on to 
say: 

By the word operation, we 
mean any process which alters the 
mutual relation of two or more 
things, be this relation of what 
kind it may. This is the most gen¬ 
eral definition, and would in¬ 
clude all subjects in the universe. 

In fact, she went on to point 
out that the Analytical Engine was 
capable of symbolic computation 
and was not restricted to numerical 
analysis. This capability came from 
the fact that the programs in the 
Analytical Engine (coded on punch 
cards) not only contained the val¬ 
ues of variables, but also the se¬ 
quence of commands and opera¬ 
tions to be performed. The 
Analytical Engine had what we call 
today an instruction set. These 
primitive instructions allowed val¬ 
ues to be read and saved to memory 
(which Babbage called the store), 
and a series of basic operations, 
such as addition, which were car¬ 
ried out in the central processing 
unit (which Babbage called the 
mill). The punch cards contained 
what we would call machine lan¬ 
guage programs. 

The Analytical Engine embod¬ 
ied the basic concepts of today's 
computers, but nineteenth-century 
craftsmen lacked the technology to 
build it. Though it was not con¬ 
structed in Babbage's lifetime, his 
dreams and Ada's ideas finally 
came to light a century later. 

So the next time you toss com¬ 
puter jargon into your conversation 
to be trendy, remember that you 
might be reflecting on the trends of 
some British inventors in the 1800s! 

© 
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Telecomputing Today 

Arlan R. Levitan . 


The Latest Developments 


AT&T Technologies and Bell Atlan¬ 
tic have been testing a new modem 
that works at 2400 bits per second 
(bps) since July of this year. The 
CTS-1620 will debut some time in 
1986 and be pegged between 
$1,600 and $2,600. Why the rela¬ 
tively steep price tag? The CTS- 
1620 will be the communications 
giant's first cellular modem. 

The testing is being conducted 
in the Baltimore-Washington, D.C. 
area and includes users in several 
government agencies, banks, insur¬ 
ance companies, and real estate 
agencies. The cellular modem re¬ 
quires a cellular telephone and 
transmitter, as well as an input/- 
display device. While the majority 
of initial buyers are expected to be 
lap computer owrters, reliable 
sources within Ford Motor Compa¬ 
ny report that prototypes of a built- 
in dash terminal are being readied 
for trials late next year. 

Although the CTS-1620 will be 
AT&T's first cellular modem, two 
lower-speed cellular units are al¬ 
ready available from other compa¬ 
nies. Motorola offers a 300 bps 
modem for $195, and Spectrum 
Cellular has a 1200 bps modem that 
goes for $695. Few details are avail¬ 
able on the free-wheeling AT&T 
modem, but you can bet your seat- 
belt that by definition it will have 
“auto-answer” and “auto-dial.” 

Better Than Gorillas 

The Source information service 
added 2400 bps access in August, 
with surcharges far lower than had 
been anticipated by industry 
watchers. Subscribers with 2400 
bps modems pay $1.80 and $1.20 
premiums for prime and nonprime 
time, respectively. With 1200 bps 
service priced at $25.80 and $10.80 
for the same time periods, users are 
said to be moving to the higher- 
speed modems in droves. 

Prices for 1200 bps modems 
continue to plummet. Cermetek of 


Sunnyvale, California has an¬ 
nounced the Infomate 1200-TPC, 
an internal “bare minimum" 
Hayes-compatible modem for the 
IBM PC priced at $198. Cermetek 
isn't alone in the under-$200 mar¬ 
ket. A recent issue of a popular 
electronic hobbyist publication 
contained several advertisements 
for stand-alone Hayes compatibles, 
with prices as low as a $129 kit 
version for those bold enough to 
wield a soldering iron. 

And 300 bps modems for un¬ 
der $50—including software—are 
springing up like mushrooms after 
three days of rain. I fully expect 
them to be given out as party favors 
at upscale kids' birthday parties. 
Tacky? It's a definite improvement 
over singing gorillas with balloons. 

The 2400 bps market is heating 
up as well. With industry leader 
Hayes at $895 and the bulk of its 
competitors at $795, U.S. Robotics 
(the manufacturer of Apple's 300 
and 1200 bps modems) raised more 
than a few eyebrows when it 
dropped the list price of its Courier 
2400 to $695. Hats off to U.S. Ro¬ 
botics not only for lowering prices, 
but also for a number of "now why 
hasn't somebody else done that 
before" features of the Courier. 

The Speed Of Choice 

Here are some examples. Ever lose 
the “handy” reference card of com¬ 
mands that comes with most mo¬ 
dems? The bottom of the Courier is 
imprinted with a complete com¬ 
mand and register summary as well 
as an RS-232 pin assignment cheat 
sheet. If you're too lazy to turn the 
modem over, there are three sepa¬ 
rate full-screen help displays that 
can be called up while online. Also 
directly accessible on the bottom of 
the unit are DIP switches for chang¬ 
ing the default settings, and a slid¬ 
ing volume control that (unlike 
those on some modems) can actual¬ 
ly be manipulated by human beings 


to control the internal speaker. 

U.S. Robotics is working close¬ 
ly with system operators of com¬ 
puter-based bulletin boards to 
encourage 2400 bps. A special ac¬ 
quisition deal available to operators 
of heavily trafficked systems is rap¬ 
idly making 2400 bps the speed of 
choice for serious telecomputerists. 
(If you're a system operator who'd 
like more information on the U.S. 
Robotics program, contact the com¬ 
pany at 8100 North McCormick 
Boulevard, Skokie, IL 60076.) 

The rapid move to 2400 bps 
seems to have caught some people 
unawares, however. During a re¬ 
cent visit to Atari Corp. in Sunny¬ 
vale, I was pleasantly surprised to 
find that the new ST series of com¬ 
puters includes a terminal emulator 
as a standard desktop accessory. 
But I was even more surprised 
when I opened its configuration 
menu and was presented with 
choices of 300, 1200, 4800, or 9600 
bps. Something was missing—ap¬ 
parently an oversight. 

"What happened to 2400?" I 
asked. The person showing me the 
ST managed to minimize his look of 
distress to a few nanoseconds. 
"Hmmmm...I'll have to write that 
one down," he said. "Hey, look at 
this graphics demo...." 

Atari's 4800 and 9600 bps op¬ 
tions indicate that some companies 
are looking far beyond 2400 bps, 
though. If 2400 bps isn't fast 
enough for you, how about 10,000 
bps—over regular phone lines? Digi¬ 
tal Communications Associates of 
Alpharetta, Georgia has unleashed 
both internal ($1,995) and external 
($2,395) modems, dubbed DCA 
Fastlinks. Even more of a mouthful 
than the Fastlink's speed is the pro¬ 
prietary DCA protocol it uses, 
called Dynamically Adaptive Multi¬ 
carrier Quadrature Amplitude Modu¬ 
lation, or DAMQAM for short. And 
I thought that was an engine 
problem. @ 
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IBM Personal Computing 

Donald B, Trivette 


Games People Play 


In February I wrote about a new 
adventure game called King's 
Quest —and about a million of you 
wrote back asking me for the 
dwarf's name. Now the sequel is 
out. Sierra On-Line has just pub¬ 
lished King's Quest II: Romancing 
the Throne, and it is every bit (sorry) 
as challenging as the original game. 

Playing the role of Sir Gra¬ 
ham—now King Graham in the se¬ 
quel—you can move through 93 
three-dimensional animated 
screens looking for your true love, 
the fair maiden Valanice. But before 
you can find and rescue her, you 
must swim with a mermaid, bar¬ 
gain with an antique dealer, pray 
with a monk, and defy the curse of 
Dracula. Yes, there's even a mushy 
kissing scene at the end. To accu¬ 
mulate points, you have to solve 
such problems as crossing the poi¬ 
son lake surrounding Dracula's cas¬ 
tle—although the points are 
secondary to rescuing Valanice. 
Like the original King's Quest, the 
game is full of hidden goodies: If 
you visit the entrance to the Hag's 
cave often enough, occasionally a 
Batmobile comes roaring out. (If 
you keep falling through the 
bridge, write and I'll tell you why.) 

Ken and Roberta Williams, the 
husband-and-wife founders of Si¬ 
erra On-Line, live in the foothills of 
the Sierra mountains in a real stone 
castle—complete with spiral stairs, 
three hot tubs, and a racquetball 
court. (Incidentally, the most tech¬ 
nically difficult part of Kings Quest 
II was to program King Graham 
realistically winding his way up the 
castle's spiral stairs.) Roberta writes 
and draws the storyline on a giant 
sheet of paper, and Ken works with 
a group of programmers to turn her 
ideas into computer language and a 
finished game. Then Ken's brother 
John helps promote the product— 
he's the director of public relations 
(and he lives in a conventional 
house). 


If you've never played an ad¬ 
venture game, and are reluctant to 
part with $49.95 to try King’s Quest 
II, check around for a free demon¬ 
stration disk. Instead of spending a 
lot of money running advertise¬ 
ments, Sierra On-Line has pro¬ 
duced 15,000 incomplete versions 
of KQII and shipped them to deal¬ 
ers and computer clubs across the 
country. If you like the demo, you'll 
love the game. 

King's Quest II runs on all IBM 
PCs, PCjrs, and most compatibles 
with 128K RAM, one disk drive, 
and a color monitor. (An Apple II 
version is under construction.) This 
is one game that no PCjr owner will 
want to be without; the color and 
sound are excellent. 

Climbing The Money Tree 

If galloping around 93 screens in 
search of a maiden isn't your idea of 
fun, then how about slogging 
through 77 weeks' worth of finan¬ 
cial data in an attempt to make a 
million dollars? 

Blue Chip Software creates 
games for the Walter Mitty in us. 
Millionaire is for wheelers and deal¬ 
ers on the New York Stock Ex¬ 
change; Tycoon, for the commodity 
speculators; and Baron, for those 
who believe that the only sure way 
to millions is real estate. These 
games are available for the IBM PC 
family of computers, most compati¬ 
bles, the Apple II series, Macintosh, 
and Commodore 64/128. The IBM 
version costs $49.95; the others a 
little less. 

Which of these games you'll 
want to play depends on your per¬ 
spective and experience. I bought 
my first stock when I was 12 years 
old. The company promptly went 
bankrupt and my three-share certif¬ 
icate now graces my wall. How to 
invest in real estate has become the 
biggest TV-ad fad since how to 
grow hair on a bald head—and 
about as successful, I imagine. The 


only thing I know about commod¬ 
ity speculation is that I shouldn't. 
Therefore, Tycoon was the game I 
chose to test my financial acumen. 

Before you can begin Tycoon, 
the computer takes about four min¬ 
utes to generate a unique trading 
environment from 300,000 possi¬ 
bilities. Once the environment is 
set, you are given $10,000 and a list 
of 15 commodities to buy and sell. 

Although I've never seen a 
soybean, and can't stand soy sauce, 

I selected them as a likely vehicle 
for my fortune. Somewhere I read 
that the way to play commodities is 
to pick one and stick with it—not to 
jump from wheat to pork bellies 
(yuck!) to heating oil. Apparently 
that is sound advice. By ignoring all 
other commodities and concentrat¬ 
ing on soybeans, I parlayed my 
$10,000 into $1,082,598 in just 60 
weeks. (If only I were so lucky in 
real life!) 

But Tycoon is more than a game 
for those of us too chicken to buy 
real soybeans. Like Millionaire and 
Baron, it is an educational game 
which closely simulates actual eco¬ 
nomic situations and the workings 
of real markets. Blue Chip Software 
says these programs are used at all 
levels of instruction—from fifth- 
grade economics classes in the Chi¬ 
cago Public Schools to college 
courses at Penn State and Southern 
Illinois University. 

It's true, you will learn about 
interest, commissions, taxes, mar¬ 
gins, short-selling, and options, but 
these games may not make you a 
more successful investor. They may 
have just the opposite effect. Once 
you see how easy it is to make 
money, once you think you've mas¬ 
tered the technique, you may be 
tempted to mortgage the house and 
play in the real world. But before 
you do, give me a call. I've got a 
tonic guaranteed to grow hair.... © 
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INSIGHT: Atari 

Bill Wilkinson 


Atari Disk Drive Compatibility 


Way back in 1978, when Atari an¬ 
nounced the double-density 815 
disk drive, Percom Data Corpora¬ 
tion saw the prototypes displayed 
at several shows and decided it 
could easily build a better drive 
which would sell for less. 

Because Percom produced 
both single- and double-sided disk 
drives using both single and double 
density, and because it wanted to 
maintain compatibility with both 
the single-density 810 and double¬ 
density 815 drives, Percom invent¬ 
ed the configuration block (more on 
this below). With some cooperation 
from a small, brand-new software 
company (wonder who that could 
be) which had inherited the source 
code rights to Atari's File Manage¬ 
ment System (FMS), Percom suc¬ 
ceeded in establishing standards 
which have been adhered to by all 
other Atari-compatible drive manu¬ 
facturers. All Atari-compatible 
drive manufacturers except one, 
that is: Atari. Before the 815 even 
hit the market. Atari dropped it 
from the product line. Years later, 
in 1984, Atari introduced the “en¬ 
hanced density" 1050, which is ac¬ 
tually somewhere between single- 
and double-density. Sigh. 

As of this writing, the follow¬ 
ing drives and/or modification kits 
are known to be capable of under¬ 
standing the Percom-standard 
double-density mode and configu¬ 
ration table: Percom, Indus, Amdek, 
Astra, Trak, Rana, SWP (ATR-8000), 
Happy Doubler, and ICD's US 
Doubler. 

The Percom Config Block 

As defined by the Percom standard, 
a config block is a set of 12 bytes 
within the memory of the disk con¬ 
trol microprocessor—which is in¬ 
side your disk drive(s). You read a 
drive's config block by passing "N" 
to it as an SIO command. You can 
write a new config block to a drive 
via an “O" command. The “N" and 


"O" commands closely parallel the 
"R" and “W" sector input/output 
commands, except the data length 
is always 12 bytes and no sector 
number is needed. The 12 bytes in 
the block are shown in the table. 
Byte # # of Description 

Bytes 

0 1 Number of Tracks 

1 1 Step Rate 

2-3 2 Sectors per Track 

4 1 Number of Sides or Heads 

5 1 Density (0 = Single, 

4 = Double) 

6-7 2 Bytes per Sector 

8 1 Drive Selected? 

9 1 Serial Rate Control 

10-11 2 Miscellaneous (reserved) 

This table requires some expla¬ 
nation. First, all the double-byte 
values are in high-byte/low-byte 
order, the opposite of normal 6502 
practice (because that's how the 
microprocessor Percom used in 
their drives worked). Also, not all 
these values have meaning to all 
manufacturers. In fact, some don't 
allow you to change more than two 
or three of the values listed here. 

The Step Rate controls the 
speed of a drive's head stepping 
motor, and the values used here 
have no universal meaning. A step 
rate of 2 may mean 6 milliseconds 
per track to one drive, 20 millisec¬ 
onds per track to another, or be 
illegal to yet another. 

Number of Sides is actually 
one less than the actual number. So 
most drives use a zero here, mean¬ 
ing one head. 

Changing the value of Drive 
Selected may turn the drive off as 
far as the computer is concerned. 
Percom must have had its reasons 
for this, but I don't know what they 
were. 

Changing The Config 
Block 

For the Density byte of the config 
block, I don't know of any drives 
which use values other than 0 (FM 
mode, single density) or 4 (MFM 


mode, double density). If you find a 
drive that actually uses some other 
value (not just ignores it), let me 
know. 

The Serial Rate Control value 
and Miscellaneous bytes have no 
universal meanings. Some drives 
will remember these values if you 
change them; other drives ignore 
your values. 

So that leaves Number of 
Tracks, Sectors per Track, and Bytes 
per Sector, all of which should be 
self-explanatory. Again, though, 
many drives ignore values outside 
certain legal ranges. Indus drives, 
for example, reject any changes to 
the number of tracks or sectors. In 
fact, Indus pays attention only to 
the Bytes per Sector and the Densi¬ 
ty bytes. Experiment with your own 
drive(s). See what they will and will 
not allow. And even if they seem to 
allow a change, do they execute it 
or ignore it? (Fun, if you're a mas¬ 
ochist, right?) 

And just how do you read 
and/or change the config block? 
Have a look at the BASIC program 
following this column. It should be 
pretty much self-explanatory. You 
can use the subroutines at 8010, 
8210, and 9010 in your own pro¬ 
grams. Remember what we said at 
the beginning, however: Atari 
drives do not follow the Percom 
config block standard. As a result, 
this program works only on Atari- 
compatible disk drives, not on the 
Atari 810 or 1050. 

Configuration Block Modifier 

For instructions on entering this listing, please 
refer to "COMPUTEI's Guide to Typing In 
Programs" published bimonthly in COMPUTE!. 

K6 1010 REM 

IIP 1020 REM CONFIGURE FROM B 
ASIC 

KI 1030 REM 

DJ 1050 DIM TEMP*<20) , TBL* < 1 
2>,CMD*<1> 

GK 1060 GRAPHICS 0:PRINT " 

*** DISK CONFIGURATI 
ON PROGRAM *t*" 

110 1070 PRINT sPRINT SPRINT 
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PA 1420 PRINT "BYTES PER SEC 

AP 8300 POKE TBL + 6, INT (BYTES 


TOR";sTEMP-BYTESPERS 

PERSECTOR/256) 

NO 1080 INPUT DRIVE 

ECTOR 

F6 8310 POKE TBL+7, BYTESPERS 

EA 1090 IF DRIVEC1 OR DRIVE> 

PK 14 30 GOSUB 7000s BYTESPERS 

ECTOR-PEEK(TBL+6)*25 

8 OR DRIVEC>INT(DRIV 

ECTOR-TEMP 

6 

E > THEN RUN 

HA 1440 PRINT "NUMBER OF SID 

CN 8320 POKE TBL + 8,SELECT 

NL 1100 GRAPHICS 0sPRINT "DR 

ES";s TEMP-SIDES 

HN 8330 POKE TBL+9, AC IA 

IVE #";DRIVE; 

D6 1450 GOSUB 7000s SIDES-TEM 

AA 8340 POKE TBL+1 0, INT (MI SC 

AL 1 1 10 GOSUB 8000 

P 

/256) 

PB 1120 IF SIOSTATUS< 128 THE 

AE 1460 PRINT "DENSITY" ; s TEM 

JO 8350 POKE TBL+1 1, MISC-PEE 

N 1170 

P-DENSITY 

K (TBL+10)*256 

DI1130 PRINT " won’t let me 

OA 1470 GOSUB 7000 8 DENS IT Y-T 

DO 8360 CMD*-"0" s GOSUB 9000s 

read" 

EMP 

REM -WRITE BLOCK— 

IJ1140 PRINT "13 SPACES!t h e 

FA 1480 PRINT 


configuration block 

FH 1490 PRINT "STEP RATE“ ; s T 

LC 8370 RETURN 


EMP-STEPRATE 

AE 9000 REM DISK DENSITY CHA 


CC 1500 GOSUB 7000s STEPRATE- 

NGE ROUTINE 


TEMP 

LA 9030 REM 

TUS 

AA 1510 PRINT "SELECT" ; s TEMP 

LN 9040 REM ENTERS DRIVE NU 

AO 1 160 STOP 

-SELECT 

MBER IN DRIVE 

CA 1170 PRINT " looks like t 

HA 1520 GOSUB 7000 s SELECT-TE 

DC 9050 REM .{5 SPACESlbuffe 

his: "s PRINT 

MP 

r address in ADDR 

Cl 1180 PRINT TRACKS;" TRACK 

JO 1530 PRINT "ACIA" ; s TEMP-A 

IP 9060 REM .<12 SPACES!comma 

S of " ;SECTORSPERTRA 

CIA 

nd in CMD* 

CK;" SECTORS each" 

AA 1540 GOSUB 7000 s AC IA-TEMP 

LE 9070 REM 

JB 1190 PRINT :PRINT "each s 

AA 1550 PRINT "MISCELLANEOUS 

6H 9080 REM (ONLY "N" AND "0 

ector has ";BYTESPER 

WORD";s TEMP-MISC 

" ARE VALID FOR CMD* 

SECTOR; " BYTES, *< de 

OA 1 560 GOSUB 7000s MISC-TEMP 

) 


BH 1570 GOSUB 8200 

L6 9090 REM 

NB 1200 PRINT " is " ; DENS IT 

PE 1580 IF S IOSTATUS< 128 THE 

6A9100 REM EXITS status in 

Y;", considered "; 

N 1100 

SIOSTATUS 

All 1210 IF DENS IT Y = 0 THEN PR 

CD 1590 PRINT SPRINT 

AP9110 REM 

INT "SINGLE density, 


OL 9130 TRAP 9190s REM activa 


that configuration! 

ted if SIOCALL* alre 

AA 1 220 IF DENS I T Y = 4 THEN PR 


ady DIM’d 

INT "DOUBLE density, 


IL 9140 DIM S IOCALL* (16) 


d error #";SIOSTATUS 

AF 9150 RESTORE 9180 

DA 1230 IF DENSITYO0 AND DE 

BP 1620 PRINT SPRINT “(hit R 

JA 9160 FOR CNT-1 TO 14s READ 

NSITY04 THEN PRINT 

ETURN to continue)" 

BYTE 

"UNKNOWN DENSITY," 

AF 1630 GOTO 1100 

FD 9170 SIOCALL* (CNT) -CHR* (B 

JN 1240 PRINT " with ";SIDE 

CH 7000 REM ENTER DATA OR NO 

YTE)sNEXT CNT 

S;“ SIDE(s)." 

CHANGE 

AI9180 DATA 104,32,89,228,1 

16 1250 PRINT SPRINT "the ST 

LN 7030 PRINT " C";TEMP;"! ? 

73,3,3,133,212,169,0 

EP RATE setting is " 

"; 

, 133,213,96 

;STEPRATE 

LF 7040 INPUT TEMP* 

FH 9190 TRAP 40000sREM turn 

A! 1260 PRINT "other setting 

BF 7050 IF LEN (TEMP*) THEN T 

off TRAP 

s are SELECT™";SELEC 

EMP-VAL(TEMP*) 

AL 9200 POKE 76B,ASC(" 1" > s RE 

T; " 

AN 7060 RETURN 

M don't ask me why 

HA 1270 PRINT " ACIA-";ACIA 

IP 8000 REM EXTRACT INFO FRO 

FP 9210 POKE 769, DRIVES REM m 

;", and MISC=“;MISC 

M TABLE 

ust be 1 through 8 

EJ 1280 PRINT SPRINT "SELECT 

IA 8030 TBL —ADR ( TBL* ) s ADDR —T 

06 9220 POKE 770, ASC (CMD* > 

A CHOICES" 

BL 

AA 9230 POKE 771,128s REM ass 

BH 1290 PRINT "{3 SPACES10 - 

AJ 8040 CMD*="N" s GOSUB 9000s 

ume output 

quit and save confi 

REM -READ BLOCK- 

LI 9240 IF CMD*—"N" THEN POK 

guration“ 

IF 8050 TRACKS-PEEK (TBL + 0) 

E 771,64 

DF 1300 PRINT "{3 SPACES! 1 - 

CH 8060 STEPRATE-PEEK (TBL+1) 

6N 9250 POKE 773, I NT ( ADDR/25 

change drive settin 

018070 SECTORSPERTRACK-PEEK 

6)s REM buffer addres 

g (s) " 

CTBL+2)*256+PEEK(TBL 


HP 1310 PRINT “ < 3 SPACES!2 - 

+3) 

PC 9260 POKE 772, ADDR-256*PE 

work with another d 

JI8080 SIDES-PEEK(TBL+4)+1 

EK(773) 


06 8090 DENSITY-PEEK (TBL + 5) 

FH 9270 POKE 774,3sREM short 

El 1320 PRINT SPRINT "your c 

AJ 8100 BYTESPERSECTOR-PEEK ( 

timeout 

hoice ";sINPUT CHOIC 

TBL+6)*256+PEEK(TBL+ 

KA 9280 POKE 775,0sREM (high 

E 

7) 

byte of timeout) 

6K 1330 IF CHOICE —0 THEN JUN 

ICB110 SELECT-PEEK (TBL + B) 

61 9290 POKE 776, 12s POKE 777 

K=USR(58484) 

NC 8120 ACIA —PEEK(TBL + 9> 

,0sREM assume std co 

IF 1340 IF CHOICE-2 THEN RUN 

PA 8130 MISC-PEEK (TBL+10) *25 



6+PEEK(TBL+11) 

H6 9300 SIOSTATUS-USR (ADR (SI 

ED 1350 GRAPHICS 0SPRINT "En 

AN 8140 RETURN 

OCALL*)) 

ter new values. Hit 

FP 8200 REM PUT NEW INFO INT 

KN 9310 RETURN 

RETURN to" 

0 TABLE 

© 

AB 1360 PRINT - leave a val 

10 8230 TBL-ADR (TBL*> s ADDR-T 


ue unchanged." 

BL 


FI 1370 PRINT 

CO 8240 POKE TBL + 0, TRACKS 


BF 1380 PRINT "TRACKS"; s TEMP 

NA 8250 POKE TBL+1 , STEPRATE 


-TRACKS 

PB 8260 POKE TBL + 2, INT (SECTO 


IJ 1390 GOSUB 7000sTRACKS-TE 

RSPERTRACK/256) 


MP 

JE 8270 POKE TBL + 3, SECTORSPE 


HA 1400 PRINT "SECTORS PER T 

RTRACK-PEEK(TBL+2)*2 


RACK";s TEMP—SECTORSP 

56 


ERTRACK 

EE 8280 POKE TBL+4 , SIDES-1 


DJ 1410 GOSUB 7000s SECTORSPE 

JA 8290 POKE TBL+5, DENSITY 


RTRACK—TEMP 
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The Beginners Page 

Tom R. Halfhill, Editor 


Clearing Up Variable Cloudiness 


If you're just learning to program, 
variables can be confusing at first— 
especially because there are so 
many varieties of variables. Last 
month's column introduced the 
concept of numeric variables. But, 
depending on your computer's 
BASIC, there are also integer vari¬ 
ables, double-precision variables, 
string variables, numeric array vari¬ 
ables, and string array variables. 
This month we'll cover integer vari¬ 
ables and tackle the rest later. 

Numeric variables, you'll re¬ 
call, represent ordinary numbers. 
For instance, you can store the 
number 10 in the variable X with 
the BASIC statement X = 10. Nu¬ 
meric variables can represent frac¬ 
tions just as easily, as in X = 98,6. 
An integer variable is similar, but 
with one important difference. As 
the term implies, integer variables 
can only represent integers —whole 
numbers. Fractions like 98.6 aren't 
allowed. There's one other limita¬ 
tion, too. In most BASICs which 
allow integer variables, the value 
cannot range beyond a maximum of 
32,767 or a minimum of —32,768. 

At first, these restrictions may 
seem odd. What's the advantage of 
limiting a variable to a whole num¬ 
ber, and especially a whole number 
within a relatively narrow range? 

The answer has to do with the 
way computers manipulate num¬ 
bers. Internally, they use the binary 
numbering system instead of our 
everyday decimal system. Translat¬ 
ing decimal numbers into binary 
gets tricky when the decimal num¬ 
ber is a fraction, or floating point 
number (so-called because the deci¬ 
mal point can “float" to the left or 
right, as in 98.6 or 9.86). The con¬ 
version process requires a few valu¬ 
able microseconds, and it takes 
several bytes of memory just to store 
a single floating point number. 

Are Integers Faster? 

Integer variables can greatly simpli¬ 


fy matters for a computer. Because 
fractions aren't allowed, the operat¬ 
ing system doesn't have to spin its 
wheels performing lengthy floating 
point conversions. And when the 
integers are limited to a range of 
— 32,768 to 32,767, each number 
can be stored in only two bytes of 
memory. 

Saving a few bytes of memory 
isn't a terribly important consider¬ 
ation anymore, now that nearly all 
personal computers come with at 
least 64K of RAM. But on certain 
computers, integer variables can 
help your programs run faster— 
often significantly faster. 

In Commodore BASIC, Apple¬ 
soft, and IBM BASIC, you declare 
an integer variable by appending a 
percent symbol (%) to the variable 
name, as in X% = 10. (Integer vari¬ 
ables are not available in TI BASIC 
or Atari BASIC, but are supported 
in Atari Microsoft BASIC.) A com¬ 
mon mistake is to accidentally omit 
the % symbol in a statement some¬ 
where, Often leading to a mysteri¬ 
ous error or unexpected result. 
Keep in mind that two variable 
names such as X and X% are treated 
by the computer as completely sep¬ 
arate variables—they can store in¬ 
dependent values and are as 
different as A and Z. 

To test the performance of 
integer variables versus regular 
variables on your computer, enter 
this simple program: 

10 FOR X = 1 TO 32000 
20 Y = Y + 1 
30 NEXT X 
40 PRINT Y 

Use a watch to measure how 
long this program takes to execute. 
Jot down the result, then change all 
three occurrences of Y to integer 
variables by adding the % symbol. 
Now run the program and time it 
again. 

Surprising Results 

What happened? If you have an 


IBM PC or PCjr, the program 
should run measurably faster. But if 
you have a Commodore or Apple, 
the program actually runs slower. 
What's going on? 

Integer variables are indeed 
faster and more memory-efficient 
on IBM computers. But on Commo¬ 
dore and Apple computers, integer 
variables actually execute slower 
and consume just as much memory 
as regular variables. This is true 
even though all three computers 
have versions of Microsoft BASIC. 
The reason is that the math routines 
in the Commodore and Apple are 
designed to handle floating-point 
numbers only. Therefore, the com¬ 
puter must convert integer vari¬ 
ables into floating-point values, 
perform the math requested by the 
program, and then convert the re¬ 
sults back into integers. All this 
conversion takes so long (in com¬ 
puter terms) that integer variables 
really aren't any faster than regular 
variables on Commodore or Apple 
computers. 

It would seem, then, that inte¬ 
ger variables are useless if you have 
a Commodore or Apple. But in fact, 
they can speed up your programs 
and save memory when used to 
construct arrays —a future column 
topic. 

In the meantime, let's clear up 
another mystery raised by the 
above program. If you examine it 
closely, you might wonder why 
converting Y to Y% makes it run 
faster even on the IBM. Since the 
FOR-NEXT loop is incrementing Y 
by steps of one, Y is never a frac¬ 
tion, anyway—it's always a whole 
number. But computers handle all 
numeric variables as floating point 
numbers, even when the value is a 
whole number and not a fraction. De¬ 
fining a variable as an integer vari¬ 
able forces the IBM to treat it as an 
integer. @ 
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The Hitchhiker’s Guide 

Infocom 
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To The Galaxy 


game 






2. 

3. 

F-15 Strike Eagle 

MicroProse 

Air combat simulation 
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Flight Simulator II 
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Aircraft simulation 
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Aircraft simulation 
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Print Shop 
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Print Shop Graphics 
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HomePak 

Batteries Included 

Word processing, telecommu¬ 
nications, & data manage¬ 
ment 




• 
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. CAPUTE! 

Modifications or Corrections To Previous Articles 


Commodore Disk 64 
Commander 

A character was smudged in the 
listing for this disk utility program 
from the September issue. Line 
3315 (p. 82) should read as follows: 

3315 :168,160,000,177,098,153,231 

Also, the DOPEN command 
example for relative files (p. 81) is 
incorrect. The record length must 
be specified outside the quotes sur¬ 
rounding the filename, not within 
the quotes as shown. Thus, the ex¬ 
ample for opening a relative file 
named TEST with a record length 
of 20 characters should read: 
DOPEN#1,"TEST",L20 

Commodore 64 Headliner 

The large characters displayed by 
this program from the August issue 


(p. 72) do not have the desired color 
on newer 64s, and are invisible on 
older 64s which do not fill color 
memory. This is because the vari¬ 
able G, which is defined in line 100 
as the address of the start of color 
memory and intended for use in 
line 530 to color the large charac¬ 
ters, is redefined when it is used for 
another purpose in lines 200 and 
220. There are several possible so¬ 
lutions to this problem, the simplest 
of which is to change the G in lines 
200 and 220 to some other variable: 

200 PRINTCHR?(147)TAB(125)“DOW 
NLOADING THE CHARACTER SET 
":C=53248:GN=12288:rem 114 
220 POKE 56333,127:POKE1,51:FO 
R Q=0TO1023:POKEGN+Q,PEEK( 
C+Q):NEXT :rem 85 

When adding the “Headliner" 
routine to your own programs, you 


should make sure that your pro¬ 
gram does not use any of the vari¬ 
ables in the main subroutine (lines 
500-550) for any other purpose. 
The variables are P, L, X$, G, CC, 
and SL. 
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mil 'y Machine Language Entry Program 

lYlb/V For Commodore 64 Charles Brannon, Program Editor 


MLX is a labor-saving utility that al¬ 
lows almost fail-safe entry of machine 
language programs published in COM¬ 
PUTE !. You need to know nothing about 
machine language to use MLX—it was 
designed for everyone. At least 8K ex¬ 
pansion memory is required. 

MLX is a new way to enter long machine 
language (ML) programs with a mini¬ 
mum of fuss. MLX lets you enter the 
numbers from a special list that looks 
similar to BASIC DATA statements. It 
checks your typing on a line-by-line 
basis. It won't let you enter illegal char¬ 
acters when you should be typing num¬ 
bers. It won't let you enter numbers 
greater than 255 (forbidden in ML). It 
won't let you enter the wrong numbers 
on the wrong line. In addition, MLX 
creates a ready-to-use tape or disk file. 

Using MLX 

Type in and save the appropriate ver¬ 
sion of MLX (you'll want to use it in the 
future). When you're ready to type in an 
ML program, run MLX. MLX for the 64 
asks you for two numbers: the starting 
address and the ending address. These 
numbers are given in the article accom¬ 
panying the ML program. 

When you run MLX, you'll see a 
prompt corresponding to the starting 
address. The prompt is the current line 
you are entering from the listing. It in¬ 
creases by six each time you enter a line. 
That's because each line has seven num¬ 
bers—six actual data numbers plus a 
checksum number. The checksum verifies 
that you typed the previous six numbers 
correctly. If you enter any of the six 
numbers wrong, or enter the checksum 
wrong, the computer rings a buzzer and 
prompts you to reenter the line. If you 
enter it correctly, a bell tone sounds and 
you continue to the next line. 

MLX accepts only numbers as in¬ 
put. If you make a typing error, press the 
INST/DEL key; the entire number is 
deleted. You can press it as many times 
as necessary back to the start of the line. 
If you enter three-digit numbers as list¬ 
ed, the computer automatically prints 
the comma and goes on to accept the 
next number. If you enter less than three 
digits, you can press either the space bar 
or RETURN key to advance to the next 
number. The checksum automatically 
appears in inverse video for emphasis. 

To simplify your typing, MLX rede¬ 
fines part of the keyboard as a numeric 
keypad (lines 581-584): 


U I O 7 8 9 

H J K L become 0 4 5 6 

M , 12 3 

64 MLX Commands 

When you finish typing an ML listing 
(assuming you type it all in one session), 
you can then save the completed pro¬ 
gram on tape or disk. Follow the screen 
instructions. If you get any errors while 
saving, you probably have a bad disk, or 
the disk is full, or you've made a typo 
when entering the MLX program itself. 

You don't have to enter the whole 
ML program in one sitting. MLX lets you 
enter as much as you want, save it, and 
then reload the file from tape or disk 
later. MLX recognizes these commands: 
SHIFT-S: Save 
SHIFT-L: Load 
SHIFT-N: New Address 
SHIFT-D: Display 

When you enter a command, MLX 
jumps out of the line you've been typ¬ 
ing, so we recommend you do it at a new 
prompt. Use the Save command to save 
what you've been working on. It will 
save on tape or disk, as if you've fin¬ 
ished, but the tape or disk won't work, 
of course, until you finish the typing. 
Remember what address you stop at. 
The next time you run MLX, answer all 
the prompts as you did before, then 
insert the disk or tape. When you get to 
the entry prompt, press SHIFT-L to re¬ 
load the partly completed file into mem¬ 
ory. Then use the New Address 
command to resume typing. 

To use the New Address command, 
press SHIFT-N and enter the address 
where you previously stopped. The 
prompt will change, and you can then 
continue typing. Always, enter a New 
Address that matches up with one of the 
line numbers in the special listing, or 
else the checksum won't work. The Dis¬ 
play command lets you display a section 
of your typing. After you press SHIFT - 
D, enter two addresses within the line 
number range of the listing. You can 
abort the listing by pressing any key. 

64 MLX: Machine Language 
Entry 

10 REM LINES CHANGED FROM MLX 
(SPACE)VERSION 2.00 ARE 750 
,765,770 AND 860 :rem 50 

20 REM LINE CHANGED FROM MLX V 
ERSION 2.01 IS 300 :rem 147 
100 PRINT"(CLR)§6§";CHR$(142); 
CHR$(8);:POKE53281,1:POKE5 
3280,1 :rem 67 


101 POKE 788,52:REM DISABLE RU 
N/STOP :rem 119 

110 PRINT"(RVS){39 SPACES}"; 

120 PRINT"(RVS)(14 SPACES) 

{RIGHT j{OFFj B*3£(RVS} 
(RIGHT) {RIGHT)T2 SPACES) 
1*1(OFF)B*3£(RVS}£{RVS) 

(14 SPACES}"? :rem 250 

130 PRINT"(RVS)(14 SPACES) 
(RIGHT) gG3(RIGHT) 

(2 RIGHT) (OFF}£{RVS}£ 
§*3(OFF)i*3(RVST 
(14 SPACES}"; :rem 35 

140 PRINT"(RVS)(41 SPACES}" 

:rem 120 

200 PRINT"(2 DOWN)(PUR)(BLK) M 
ACHINE LANGUAGE EDITOR VER 
SION 2.02(5 DOWN}":rem 238 
210 PRINT"B5l(2 UP}STARTING AD 
DRESS?(8 SPACES)(9 LEFT}"; 

:rem 143 

1215 INPUTS: F=l-F: C$=CHR$ ( 31+11. 

9*F) :rem 166 

220 IFS< 2560R(S>40960ANDS<4915 
2)ORS> 53247THENGOSUB3000 :G 
OTO210 : rem 235 

225 PRINT:PRINT:PRINT :rem 180 
230 PRINT"153(2 UP}ENDING ADDR 
ESS?(8 SPACES)(9 LEFT)";:I 
NPUTE:F=l—F:C$=CHR$(31+119 
*F) :rem 20 

240 IFE<2560R(E>40960ANDE<4915 
2)ORE> 53247THENGOSUB3000:G 
OTO230 :rem 183 

250 IFE<STHENPRINTC?;“{RVS}END 
ING < START(2 SPACES}":GOS 
UB1000:GOTO 230 :rem 176 

260 PRINT:PRINT:PRINT :rem 179 
300 PRINT"{CLR)" ; CHR$(14):AD=S 
:rem 56 

310 A=1:PRINTRIGHT$("0000"+MID 
$(STR?(AD),2),5 

:rem 33 

315 F0RJ=AT06 :rem 33 

320 GOSUB570:IFN=-1THENJ=J+N:G 
OTO320 :rem 228 

390 IFN=—211THEN 710 :rem 62 

400 IFN=-204THEN 790 :rem 64 

410 IFN=-206THENPRINT:INPUT" 

{DOWN)ENTER NEW ADDRESS";Z 
Z :rem 44 

415 IFN=—206THENIFZZ <SORZZ >ETH 
ENPRINT"(RVS)OUT OF RANGE" 
:GOSUB1000:GOTO410:rem 225 
417 IFN=-206THENAD=ZZ:PRINT:GO 
TO310 :rem 238 

420 IF NO-196 THEN 480 

:rem 133 

430 PRINT:INPUT"DISPLAY:FROM"; 
F:PRINT,“TO";:INPUTT 

:rem 234 

440 IFF< SORF> EORT<SORT> ETHENPR 
INT"AT LEAST";S;"(LEFT), N 
OT MORE THAN";E:GOTO430 

:rem 159 

450 FORI=FTOTSTEP6:PRINT:PRINT 

RIGHT$("0000"+MID$(STR$(I) 
,2),5)?":”; :rem 30 

451 FORK=0TO5:N=PEEK(I+K):PRIN 

TRIGHT$(”00"+MID$(STR$(N), 
2),3);“,"; :rem 66 
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460 GETA?: IFA$>""THENPRINT:PRI 
NT:GOTO310 : rein 25 

470 NEXTK:PRINTCHR?(20);:NEXTI 
;PRINT:PRINT:GOTO310 

: rein 50 

480 IFN<0 THEN PRINT:GOTO310 

:rem 168 

490 A(J)=N:NEXTJ :rem 199 

500 CKSUM=AD—INT(AD/256)* 256 :F 
0RI=1T06:CKSUM=(CKSUM+A(I) 
)AND255:NEXT :rem 200 

510 PRINTCHR$(18);:GOSUB570:PR 

INTCHR$(146); :rem 94 

511 IFN=-1THENA=6:G0T0315 

:rem 254 

515 PRINTCHR$(20):IFN=CKSUMTHE 
N530 :rem 122 

520 PRINT:PRINT"LINE ENTERED W 
RONG : RE-ENTER":PRINT:GOS 
0 B1000:GOT0310 :rem 176 

530 GOSUB2000 :rem 218 

540 FORI=lT06:POKEAD+I-l,A(I): 
NEXT:POKE5427 2,0:POKE54273 
.0 :rem 227 

550 AD=AD+6:IF AD<E THEN 310 

:rem 212 

560 GOTO 710 srem 108 

570 N=0:Z=0 :rem 88 

530 PRINT"g£3"; :r em 81 

581 GETA$:IFA$—""THEN581 

:rem 95 

582 AV=-(A$="M")-2*(A$=",")-3* 

(A$ = ".")-4*(A$="J")-5 *(A$ = 
"K")-6*(A$="L") :rem 41 

583 AV=AV-7*(A$="U")-8*(A$="I" 
)-9*(A?="0"):IFA$="H“THENA 

584 IFAV>0THENA$=CHR$(48+AV) 

:rem 134 

585 PRINTCHR$(20);:A=ASC(A$):I 
,FA=13ORA=44ORA=32THEN670 

:rem 229 

590 IFA>128THENN=-A:RETURN 

: rem 137. 

600 IFAO20 THEN 630 : rem 10 

610 GOSUB690:IFI=1ANDT=44THENN 
=-l:PRINT"{OFF}{LEFT} 

{LEFT.} " ; :GOTO690 : rem 62. 
620 GOTO570 :rem 109 

630 IFA< 480RA> 57THEN580 

:rem 105 

640 PRINTA$;:N=N*10+A-48 

:rem 106 

650 IFN> 255 THEN A=20:GOSUB100 
0 :GOTO600 :rem 229 

660 Z=Z+1:IFZ<3THEN580 :rem 71 
670 IFZ=0THENGOSUB1000:GOTO570 
:rem 114 

680 PRINT",:RETURN :rem 240 

690 S%=PEEK(209)+256*PEEK(210) 

+PEEK(211) :rem 149 

691 F0RI=1T03:T=PEEK(S%-I) 

:rem 67 

695 IFTO44ANDTO58THENP0KES*- 
1,32 :NEXT : rem 205 

700 PRINTLEFT$("{3 LEFT}",I-1) 

;:RETURN :rem 7 

710 PRINT"{CLR}{RVS}*** SAVE * 
**{3 DOWN}" :rem 236 

715 PRINT"{2 DOWN}(PRESS { RVS} 
RETURN {OFF} ALONE TO CANCE 
L SAVE){DOWN}" :rem 106 

720 F$="":INPUT"{DOWN} FILENAM 
E";F$:IFF$=""THENPRINT:P RI 
NT:GOTO 310 :rem 71 

730 PRINT:PRINT"{2 DOWN}{RVS}t 
{ OFF } AP E OR { RVS } D { OFF } ISK 
: (T/D)" :rem 228 

740 GETA$:I FA?<>"T"ANDA?<>"D"T 
HEN740 :rem 36 

750 DV=1—7*(A?="D"):IFDV=8THEN 


F$="0:"+F$:0PEN15,8,15,"S" 
+F?:CLOSE15 :rem 212 

760 T?=F$:ZK=PEEK(53)+256*PEEK 
(54)-LEN(T?):P0KE782,ZK/25 
6 :rem 3 

762 POKE781,ZK-PEEK(782)* 256:P: 
OKE780,LEN(T$):SYS65469 

:rem 109 

763 POKE780,1:POKE781,DV:POKE7 

82,1:SYS65466 :rem 69 

765 K=S:POKE254,K/256:P0KE253, 

K-PEEK(254)* 256:POKE780,2 5 
3 :rem 17 

766 K=E+1:POKE782,K/256:POKE78 
1,K-PEEK(782)*256:SYS65496 

: rem 235- 

770 IF(PEEK(783)AND1)OR(191AND 
ST)THEN780 :rem 111 

775 PRINT"{DOWN}DONE.{DOWN}":G 
OTO310 :rem 113 

780 PRINT"{DOWN}ERROR ON SAVE. 

{2 SPACES}TRY AGAINIFDV. 
=1THEN7 20 : rem 171 

781 OPEN 15,8,15:1 NpllT# 15 , E1 $ , E 
' 2$:PRINTE1$;E2$:CL0SE15:GO 

TO720 :rem 103 

790 PRINT"{CLR}{RVS}*** LOAD * 
**{2 DOWN}" :rem 212 

795 PRINT" {2 DOWN } (J?RESS { RVS } 
RETURN {OFF} ALONE TO CANCE 
L LOAD)" :rem 82 

800 F$="":INPUT"{2 DOWN} FILEN 
AME";F$:IFF$=""THENPRINT:G 
OTO310 :rem 144 

810 PRINT:PRINT"{2 DOWN}{RVS}T 

{offJape or {rvs}d{off}xsk 

: (T/D)" :rem 227 

820 GETA$:IFA$ < >"T"ANDA$ < >"D"T 
HEN820 •rem 34 


830 DV=1-7*(A$="D"):IFDV=8THEN 
F$="0:"+F$ :rem 157 

840 T$=F$:ZK=PEEK(53)+256*PEEK 

(54)-LEN(T$):POKE782,ZK/25 
6 :rem 2 

841 POKE781,ZK-PEEK(782)*256:P 
OKE780,LEN(T$):SYS65469 

:rem 107 

845 POKE780,1:POKE781,DV:POKE7 
82,1:SYS65466 :rem 70 

850 POKE780,0:SYS65493 :rem 11 
860 IF(PEEK(783)AND1)OR(191AND; 

ST)THEN870 :rem 111 

865 PRINT"{DOWN}DONE,":GOTO310 
:rem 96 

870 PRINT"{DOWN}ERROR ON LOAD. 
{2 SPACES}TRY AGAIN.{DOWN} 

" :IFDV=1THEN800 : rem 17:2 
880 0PEN15,8,15:INPUT#15,El $,E 
2$:PRINTE1$;E2$:CLOSE15:G0 
TO800 : rem 102 

1000 REM BUZZER :rem 135 

1001 POKE54296,15:POKE54277,45 

:P0KE54278,165 :rem 207 

1002 P0KE54276,33:POKE 54273,6 

:POKE54272,5 :rem 42 

1003 FORT=1TO200:NEXT:P0KE5427 

6,32:POKE54273,0:POKE5427 
2,0:RETURN :rem 20? 

2000 REM BELL SOUND :rem 78 

2001 POKE54296,15:POKE5427 7,0: 

POKE54278,247 :rem 152 

2002 POKE 54276,17':POKE5427 3,4 

0:P0KE54272,0 :rem 86 

2003 FORT=1TO100:NEXT:POKE5427 

6,16:RETURN :rem 57 

3000 PRINTC$;"{RVSJnOT ZERO PA 
, GE OR ROM":GOTO1000 

:rem 39 
© 
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Programming the Tl 

C. Regena 


Sprites In il Extended BASIC 


Since this month's COMPUTE! is a 
game issue, let me remind you that 
COMPUTE!'s First Book of TI Games 
is still available. It offers a variety of 
games that do not require TI Ex¬ 
tended BASIC. 

Eventually, however, game 
programmers usually want the Ex¬ 
tended BASIC command module 
because it adds several program¬ 
ming features, including up to 28 
sprites (smoothly moving screen 
objects). With one statement you 
can define a sprite and set it in 
continuous motion. For example, 
try this short program: 

100 REM TI EXTENDED BASIC 
110 REM SPRITE DEMO 
120 DEF R<X)-INT(X*RND> 

130 CALL CLEAR 
140 FOR S-l TO 28 :: RAND 
OMIZE 

130 CALL SPRITE(#S,64+S,R 
<13)+2,90,128,R(255)- 
127,R(255)-127) 

160 NEXT S 
170 GOTO 170 
180 END 

This month's main program, 
“Sprite Tester," offers a way to test 
your sprites before putting them 
into a program of your own. After it 
displays a sprite on the screen, it 
lets you change various characteris¬ 
tics of the sprite by entering differ¬ 
ent numbers. You may experiment 
as much as you wish. When you 
have the sprite moving as you 
want, simply jot down the CALL 
SPRITE statement shown at the 
bottom of the screen. 

Designing The Sprite 

To get started, type in and run 
Sprite Tester. Choose a magnifica¬ 
tion factor from 1 to 4. (A regular- 
size character is magnification 1 
and a four-times size is magnifica¬ 
tion 2. Magnification 3 is made up 
of four regular-size characters, and 
magnification 4 is four large 
characters.) 

Next choose a character num¬ 
ber from 33 to 95—one of the char¬ 


acters from the regular ASCII 
character set. If you prefer to use 
your own graphic character, insert a 
CALL CHAR statement to redefine 
a character. 

You may then choose a sprite 
color. Since 1 is transparent (the 
screen color), you must choose a 
color number from 2 to 16. If you 
choose color 8, the screen changes 
so you'll be able to see the sprite. 
All other colors use the cyan back¬ 
ground screen. 

Next choose a dot row and dot 
column position from which the 
sprite should start moving. Then, to 
move the sprite, select a row veloci¬ 
ty and column velocity. Since these 
may be positive or negative num¬ 
bers, first choose + or —, press 
ENTER, then pick the number and 
press ENTER again. If you want to 
experiment with the position of the 
sprite, keep the row velocity and 
column velocity at +0. Otherwise, 
the sprite will be in motion, and 
you may not be able to see the dot 
row and dot column changes. 

As you enter parameters, the 
CALL MAGNIFY and CALL 
SPRITE statements at the lower 
part of the screen show the sprite's 
present conditions. The program 
continues until you press FCTN- 
CLEAR. 

Extended BASIC Features 

Extended BASIC contains a number 
of statements which make pro¬ 
grams such as Sprite Tester easier to 
write. The DISPLAY AT state¬ 
ments, for instance, allow you to 
print at a specified row and column. 
USING helps to format output, 
right-justifying numbers in this 

The ACCEPT statement is 
quite versatile for accepting input. 
BEEP sounds a tone when the com¬ 
puter is waiting for the input. AT() 
lets you receive the input starting at 
a certain row and column on the 
screen, and SIZE limits the input to 


a specified number of characters. 
VALIDATE allows you to specify 
what characters are acceptable as 
input. To erase or change before 
you press ENTER, you can press 
FCTN-ERASE. Unfortunately, if 
you enter something wrong, an 
error message appears and the 
printing on the screen starts to 
scroll. Afterward, the cursor may 
not be lined up with the original 
question. 

Unlike Console BASIC, Ex¬ 
tended BASIC lets you follow 
THEN and ELSE in IF statements 
with either a line number or a 
command. 

The CALL SPRITE statement 
specifies the sprite number, the 
character number for the sprite, the 
foreground color, the beginning dot 
row and dot column positions, and 
the row velocity and column 
velocity. 

CALL MAGNIFY sets the 
magnification factor. You can 
change characteristics of the sprite 
either by using another CALL 
SPRITE statement or CALL PAT¬ 
TERN for the character number, 
CALL COLOR for color, and CALL 
MOTION for the velocities. 

If you prefer to save typing 
effort, you can obtain a copy of this 
program by sending a blank cas¬ 
sette or disk, a stamped, self- 
addressed mailer, and $3 to: 

C. Regena 

P.O. Box 1502 

Cedar City, UT 84720 

Please be sure to specify that you 

want Sprite Tester. 

100 REM TI EXTENDED BASIC 
110 REM SPRITE TESTER 
120 CALL CLEAR 
130 CALL SCREEN(8) 

140 CALL CHAR(96,"080402F 
F020408") 

150 CALL COLOR(9,10,1) 

160 CALL CHAR(95,"10107C1 
010007C" ) 

170 CH=42 
180 C0L0R=2 


October 1985 COMPUTEI 117 











DR0W=96 
DCOL=128 
VRQW=0 
VCOL=0 
M=1 

CALL MAGNIFY(M) 
DISPLAY AT(20,1>:"CAL 
L MAGNIFY(1)" 

DISPLAY AT(22,1>:"CAL 
L SPRITE(#1,42, 2, 96 

,{3 SPACES}12B, 

{3 SPACES}0, 

C3 SPACES}0 > " 

CALL SPRITE(#1,CH,COL 
OR,DROW,DCOL,VROW,VCO 
L) 

CALL HCHAR(1,3,96) 
DISPLAY AT(1,2):"MAGN 
IFY 1-4:" 

ACCEPT AT(1,16)VALIDA 
TE("1234">BEEP SIZE(1 
> : M 


CALL HCHAR(1,3,32) 
CALL HCHAR(3,3,96) 
DISPLAY AT(3,2):"CHAR 
ACTER 33-95: " 

ACCEPT AT(3,20)VALIDA 
TE(DIGIT)BEEP SIZE(2) 
: CH 

IF (CH<33>+(CH>95>THE 
N 360 

CALL PATTERN(#1,CH) 
DISPLAY AT(22,16):USI 
NG " HH " :CH; 

CALL HCHAR(3,3,32) 
CALL HCHAR(5,3,96) 
DISPLAY AT(5,2):"COLO 
R 2-16: " 

ACCEPT AT(5,15)VALIDA 
TE(DIGIT)BEEP SIZE(2> 

:COLOR 

IF (C0L0R<2>+(COLOR>l 
6)THEN 430 

IF COLOROB THEN 480 
CALL SCREEN(16) 

GOTO 490 
CALL SCREEN(B) 

CALL COLOR(#1,COLOR) 
DISPLAY AT(22,19):USI 
NG COLOR; 

CALL HCHAR(5,3,32) 
CALL HCHAR(7,3,96) 
DISPLAY AT(7,2):"DOT 
ROW 1-196:" 

ACCEPT AT(7,IB)VALIDA 
TE(DIGIT)BEEP SIZE(3) 

: DROW 

IF (DROW<1)+(DR0W>196 
)THEN 540 

CALL SPRITE(#1,CH,COL 
OR,DROW,DCOL,VROW,VC0 
L) 

DISPLAY AT(22,22):USI 
NG “HHH":DROW; 

CALL HCHAR(7,3,32) 
CALL HCHAR(9,3,96) 
DISPLAY AT(9,2):"DOT 
COLUMN 1-256:" 

ACCEPT AT(9,21)VALIDA 
TE(DIGIT)BEEP SIZE(3> 

: DCOL 

IF (DCOL<1)+(DC0L>256 
> THEN 610 

CALL SPRITE(HI,CH,COL 


OR,DROW,DCOL,VROW,VCO 

820 CALL MOTION (HI ,VROW,V 

L) 

COL) 

830 DISPLAY AT(23 10):USI 

G "###"sDCOL; 

NG "HHHH": VCOL; 

840 CALL HCHAR(13,3,32) 

660 CALL HCHAR(9,3,32) 

670 CALL HCHAR(11,3,96) 

850 GOTO 280 

860 END @ 

VELOCITY 127i + " 

690 ACCEPT AT(11,22)VALID 


: S* 

700 ACCEPT AT(11,23)VALID 

To receive 

ATE(DIGIT)SIZE(3) : VRO 

W 

additional 

720 IF SS="-" THEN VROW=- 
VROW 

information from 

730 CALL MOTION (HI ,VROW,V 
COL) 

740 DISPLAY at(23 5):USIN 

advertisers in 

G "HHHH" :VROW; 

750 CALL HCHAR(11,3,32> 

this issue, use 

760 CALL HCHAR(13,3,96) 

770 DISPLAY AT(13,2):“COL 

the handy reader 

780 ACCEPT AT(13,25)VALID 

service cards in 

ATE ( ,, +-" ) BEEP SIZE(l) 

: S* 

the back of 

ATE(DIGIT)SIZE(3):VCO 

L 

the magazine. 

800 IF VCOL >127 THEN 770 


810 IF S* =" -" THEN VCOL** — 
VCOL 



Save Your Copies of COMPUTE! 



Protect your back issues of COMPUTE! 
in durable binders or library cases, 
Each binder or case is custom-made 
in flag-blue binding with embossed 
white lettering. Each holds a year of 
COMPUTE!. Order several and keep 
your issues of COMPUTE! neatly or¬ 
ganized for quick reference, 
(These binders make great 
gifts, too!) 


(Please add $2.50 per ui 
outside the U.S.) 


Mail to: Jesse Jones Industries, P.O. Box 5120, 

Dept. Code COTE,Philadelphia, PA 19141 

Please send me-COMPUTE! □ cases □ binders. 

Enclosed is my check or money order for $__ (U.S. funds 

only.) 

Name- 

Address_ 

City_ 


118 COMPUTE! October 1985 


























Atari 520 ST- 
Monochrome System .... Call 
Atari 520 ST-RGB System . Call 

Call for latest ST Software and Accessories 

SUPERPRINTER PACKAGES 

SG-10 Printer and U-Print A.289 

Panasonic 1091 and U-Print A.318 

Legend 880 & U-Print A.287 

Citoh 8510AP+ & U-Print A.399 

Powertype & U-Print A.379 

Super Printer Packages have no extra charges when 
shipped in Continental USA. 

ATARI INTERFACES INDUS GT 

Aid Interfast I _99.95 for Atari . 

U-Print A/16K Buffer 9 95 MPP 1000E 

.79.95 Modem . 

U-Print A/32K Buffer 

. 99.95 

U-Print A/64K Buffer 

.109.95 

R-Verter Adaptor 39.95 




SPECD^ILS 


Epyx M 

Koronis Rift-D ... 24.95 
. 24.95 Ballblazer-D .... 24.95 
Pitstop ll-D .24.95 


ATARI SOFTWARE 


MISC. ATARI (cont’d.) 

On-Track Racing-D .. 20.95 
Bounty Bob-Cart .... 29.95 
Ramrod XL .79.95 


Print Shop Paper .... 16.95 
Print Shop Graphics-D 19.95 

ELECTRONIC ARTS 

Archon. 19.95 


Realm/Impossibility . 19.95 
Murder/Zinderneuf ... 19.95 
Music Construction . 19.95 
Pinball Construction . 19.95 

One on One . 24.95 

Seven Cities of Gold . 24.95 
Financial Cookbook . 29.95 

INFOCON! 

Enchanter-D ... 

Zork l-D. 


Basic XL-Cart. 

MAC 65XL-Cart ... 

Action-Cart. 

Basic XL-Cart. 

DOS XL/Bug 65 ... 
MAC 65 Tool Kit-D . 
Action Tool Kit-D 
Basic XL Tool Kit-D 

SSI 

Carrier Force-D ... 
Combat Leader-D .. 


Cutthroats-D . 


24.95 Rails West-D . 

24.95 Computer Ambush-D 
24.95 Computer Baseball-D 
24.95 Breakthrough/ 


Crusade in Europe-D 27.95 
Decision in Desert-D 27.95 
Kennedy Approach-D 23.95 

MISCELLANEOUS 

ATARI 

Flight Simulator ll-D . 34.95 


Quarterback-D .... 
Colonial Conquest-D . 
Gemstone Warrior-D .. 
Six Gun Shootout-D . 

SYNAPSE 

Syncalc-D . 

Synfile-D . 

Syntrend-D . 


iiiiia 

MODEMS 

Volksmodem 300 .. 
Volksmodem 1200 . 

Hayes 1200 . 

SG-10 .219 Hayes 300 

—modem HE ... 

SD-10 . 339 PRINTERS 0 

Citoh 8510AP+ ... 
SR-10 . Call Legend 1080 . 

SR-15 . Call “wsooap 

PRINTER BUFFERS I"™*™""' 

Microfazer. Call 1 rt a ssn 

U-Print-16K. 79.95 Panasonic 1090 

U-Print-32K ... 99.95 Panasonic 1091 
U-Print-64K ... 109.95 Powertype . 



. 33.95 Adv Construction Ki 

APPLE MISCELLANEOUS 

.. 25.95 Conan . 


F-15 Strike Eagle .. .. t 

Summer Games.! 

Micro League Baseball 2 
Star League Baseball ; 
Wizardry/Proving .... c 
Ultima III .: 


95 Dollars 8 . Sense . 


39 95 
. 129 95 
. 129.95 


^ COI. I30Z 

~C.om.pu 

P.O. Box 17882, Milwaukee, Wl 53217 
ORDER LINES OPEN 

Vlon-Fri 11 a.m. - 7 p.m. CST • Sat. 12 p.m. - 5 p.m. CST 

To Order Call Toll Free 

800-558-0003 

For Technical Info, Order 
Inquiries, or for Wise. Orders 

414-351-2007 


mm 

SUPER PRINTER PACKAGES 

SG-10 & G-WIZ. 282 

Panasonic 1091 & G-WIZ . 308 

Panasonic 1090 & G-WIZ . 379 

Legend 880 & G-WIZ . 271 

Legend 1080 & G-WIZ .. 299 

Citoh 8510AP+ & G-WIZ. 395 

Super Printer Packages have no extra charges 
added when shipped in Continental USA 
MODEMS Animation Station 

Westridge AA/AD 69.95 for C-64 . 49.95 

Total Tele Modem 49.95 PRINTER 

®®-®® INTERFACES 

1660 Modem 49.95 ^ . 69 , 95 

INDUS G-Wiz .59.95 

Indus GT for C-64 239 Data Share PPI .. 49.95 

Cardco G + .Call 


id-Cart .. 24.95 Temple of Apshal 


Rescue on Trllogy-D .. 

Fractalus-D ... 24.95 Summer Game 

World’s Greatest ll-D. 

Football-0 .... 24.95 Koronis Ritt-D 
The Eidolon-D ... 24.95 Ballblazer-D . 


. 24.95 Pitstop ll-D.24.95 


COMMODORE SOFTWARE 


ACCESS INFOCOM 

Beachhead-D . 21.95 Enchanter-D .... 

Beachhead ll-D . 24.95 Planetfall-D .... 

.. 24.95 Sorcerer-D. 



Home Pak-D . 

COMMODORE 

Easy Calc-Cart .: 

Easy Spell-D . 

The Manager-D . 

Suspended-D 

Starcross-D . 

Deadline-D . 
Cutthroats-D 
The Suspect-D . 


ZorkIT 


r lll-D . 


29 95 Typing Tutor lll-D 
29 95 On Field Football-0 

' 29 95 Ultima ll-D 

29.95 Blue Max-D 

29.95 Blue Max 2001-0 . 


. 29.95 


Microleague 
Baseball-D .. 
Stunt Flyer-D .. 


ELECTRONIC ARTS 

Sky Fox-D . 

Mail Order Monster-D 24.95 ua ouiuuu nmatuM 
Adv. Construction-D . 29.95 Xyphus-D* 

Racing Destruction-D 24.95 Transy | vannia : D ;; 

INSTA "" " ■" 


:ta-Calc/Graph Combo-D 
24.95 


Bounty Bob-Cart .... 29.95 

Fleet System ll-D .... 44.95 

39 95 Space Shuttle-0.20.95 

i/gs Ghostbusters-D .24.95 

Batter-Up-D .29.95 

39 95 Amer. Cross Country 

39 95 Race ' D . 20 95 

Syncalc-D . 34.95 

24 95 Superbowl Sunday-D 24.95 



























































What the world really needs 
is a 99 cent 

Double Sided, Double Density Diskette 
with a LIFETIME WARRANTY! 


And DISK WORLD! has it. 


Introducing Super Star Diskettes: 
the high quality diskette with 
the lowest price 

and the best LIFETIME WARRANTY! 


pie buy a more expensive 
ly buying higher quality, 
loing toward flashier adver- 


In the course of selling more than a million diskettes 
every month, we've learned something: higher prices don’t 
necessarily mean higher quality. 

In fact, we've found that a good diskette manufacturer 
simply manufactures a good diskette...no matter what 
they charge for it. (By way of example, consider that none 
of the brands that we carry has a return rate of greater than 
1/1,000th of 1 percent!) 

In other words, when people I 
diskette, they aren't necessarily bi. 

The extra money might be going tc. 
tising, snazzier packaging or simply higher profits. 

But the extra money in a higher price isn’t buying better 
quality. 

All of the good manufacturers put out a good diskette. 

Period. 

How to cut diskette prices 
... without cutting quality. 

Now this discovery posed a dilemma: how to cut the 
price of diskettes without lowering the quality. 

There are about 85 companies claiming to be “diskette” 
manufacturers. 

Trouble is, most of them aren't manufacturers. 

Rather they are fabricators or marketers, taking other 
company's components, possibly doing one or more steps 
of the processing themselves and pasting their labels on 
the finished product. 

The new Eastman Kodak diskettes, for example, are one 
of these. So are IBM 5«" diskettes. Same for DYSAN, 
Polaroid and many, many other familiar diskette brand 
names. Each of these diskettes is manufactured in whole 
or in part by another company! 

So, we decided to act just like the big guys. That's how 
we would cut diskette prices...without lowering the 
quality. 

We would go out and find smaller companies to manu¬ 
facture a diskette to our specifications...specifications 
which are higher than most...and simply create our own 
“name brand” diskette. 

Name brand diskettes that offered high quality at low 


DISK CADDIES 

The original flip-up holder for 
10 5V4" diskettes. Beige or Grey 
only. 

$1.65 ea.+ .20 Shpng. 

DISKETTE 70 STORAGE 

Dust-free storage for 70 514" 
diskettes. Six dividers included. 
An excellent value. 

$11.95 ea.+$3.00 Shpng. 


~b 


HOURS: 

Human: 8AM-6PM Central Time, Monday through Friday 
Answering Machine: 6PM-8AM, All Times 
MCI MAIL: 24 hours a day. 



Boy, did we get lucky. Our Super Star 
Diskettes are the same ones you’ve been 
using for years.. .without knowing it. 

In our search for the low priced, high quality diskette of 
our dreams, we found something even more interesting. 

We found that there are several manufacturers who 
don’t give a hoot about the consumer market for their 
diskettes. They don't spend millions of dollars in advertis¬ 
ing trying to get you, the computer user, to use their 
diskettes. 

Instead, they concentrate their efforts on turning out the 
highest quality diskettes they can...because they sell 
them to the software publishers, computer manufacturers 
and other folks who (in turn) put their name on them.. .and 
sell them for much higher prices to you! 

After all, when a software publisher or computer manu¬ 
facturer or diskette marketer puts their name on a diskette, 
they want it to work time after time, everytime. (Especially 
software publishers who have the nasty habit of copy- 
protecting their originals!) 


Super Star Diskettes. You already know 
how good they are. Now you can buy 
them...cheap. 

Well, that’s the story. 

Super Star diskettes don’t roll off the boat from Pago- 
Pago or emerge from a basement plant just east of 
Nowhere. 

Super Star diskettes have been around for years...and 
you’ve used them for years as copy-protected software 
originals, unprotected originals. Sometimes, depending 
on which computer you own, the system master may have 
been on a Super Star diskette. And maybe more than once, 
you’ve bought a box or two or morqof Super Star diskettes 
without knowing it. They just had some “big" company's 

Super Star Diskettes are good. So good that a lot of 
major software publishers, computer manufacturers and 
other diskette marketers buy them in the tens or hundreds 
of thousands. 

We buy them in the millions. 

And than we sell them to you. 

Cheap. 

When every little bit counts, 
it’s Super Star Diskettes. 

You’ve used them a hundred times...under different 
names. 

Now, you can buy the real McCoy, the same diskette that 
major software publishers, computer manufacturers and 


Order 50 Super Star Diskettes , 
and we’ll be happy to sell you an 1 
Amaray Media-Mate 50 for only I 
$8.75, shipping included...* '** 
less than the suggested retail 
of $15.95. 


ORDERS ONLY: 
1-800-621-6827 
(In Illinois: 1-312-256-7140) 
INQUIRIES: 

1-312-256-7140 

FOR FASTEST SERVICE, USE NO-COST MCI MAIL: 
Our address is DISKWORLD. It's a FREE MCI MAIL 
letter. No charge to you. (Situation permitting, we'll 
ship these orders in 24 hours or less.) 

SHIPPING: 5'/.' & 3%* DISKETTES-Add $3.00 per each 
100 or fewer diskettes. OTHER ITEMS: Add shipping charges 
as shown in addition to other shipping charges. PAYMENT: 
VISA, MASTERCARD and Prepaid orders accepted. COD OR¬ 
DERS: Add additional $3.00 special handling charge. APO, 
FPO, AK, HI & PR ORDERS: Include shipping charges as 


e° n TAXE 


nited States addresses, ex 


Regular DISK WORLD! price: $9.69 ea. 
_ + $2~00Shpng. _ / 




Super Star Diskettes are unconditionally warranted 
against defects in original material and workmanship 
so long as owned by the original purchaser. Returns 
are simple: just send the defective diskettes with proof 
of purchase, postage-paid by you with a short expla¬ 
nation of the problem, and we’ll send you the replace¬ 
ments. (Incidentally, coffee stained diskettes and 
diskettes with staples driven through them don’t 
qualify as “defective”.) 


WE WILL MEET OR BEAT ANY NATIONALLY 
ADVERTISED PRICE 

ON THE SAME PRODUCTS AND QUANTITIES 
SUBJECT TO THE SAME TERMS AND CONDITIONS. 


DISKWORLD!, Inc. 


629 Green Bay Road 
Wilmette, Illinois 60091 

























At Far Below 
Dealer Cost! 


total Personal Computer system 



Carries easily 
as a suitcase! 

Plugs into 115V outlet! 


GREAT GIFT IDEA 

FOR STUDENTS! 


Sorry, we’re not permitted to PRINT the famous brand-name. 

BUT , we CAN "tell all” if you call us TOLL FREE: 1-800-328-0609! 


THE COMPUTER 

Snap-on computer keyboard! 64K RAM, 20K ROM. Full- 
size typewriter keyboard. Upper and lower case 
letters, numerals, symbols, reverse characters. 2 
cursor control keys, 4 function keys, programma¬ 
ble to 8. Music synthesizer with 3 independent 
voices, each with 9 octave range. Input/output ports 
accommodate ... user, serial, ROM cartridge, joy¬ 
sticks, external monitor, phone modem. 

Built-in disk drive! Intelligent high speed unit with 
5’A" floppy disk recorder. 170K formatted data stor¬ 
age; 35 tracks. 16K ROM. Uses single sided, single 
density disk. Serial interface. Second serial port to 
chain second drive or printer. 

Built-in color monitor ! Displays 40 columns x 25 lines 
of text on 5" screen. High resolution. 320 x 200 pix¬ 
els. 16 background, character colors. 

Built-in ROM cartridge port! Insert ROM program car¬ 
tridge. Multitude of subjects available in stores 
across the nation! 

Mfr. List Price ... ‘ 995.00 

s 


Liquidation 
Priced 
At Only . . . 


>388 


THE PRINTER 

Print method: Bi-directional impact dot matrix. 
Character matrix: 6 x 7 dot matrix. 

Characters: Upper and lower case letters, numerals 
and symbols. All PET graphic characters. 

Graphics: 7 vertical dots — maximum 480 columns. 
Dot addressable. 

Character codes: CBM ASCII code. 

Print speed: 60 characters per second. 

Maximum columns: 80 columns. 

Character spacing: 10 characters per inch. 

Line feed spacing: 6 lines per inch in character mode 
or 8 lines per inch selectable. 9 lines per inch in 
graphics mode. 

Line feed speed: 5 lines per second in character mode. 
7.5 lines per second in graphics mode. 

Paper feed: Friction feed. 

Paper width: 4.5" to 8.5" width. 

Multiple copies: Original plus maximum of two copies. 
Dimensions: 13"W x 8"D x 3'A"H. Wt.: 6 Vi lbs. Power: 
120V AC, 60 Hz. 

Mfr. List: $ 200.00 
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Compatible with above Computer System (Not included in package price.) Mfr. Sug. Retail 

JOYSTICKS (Set of 2) 64 MODEM 

Mfr. List: $59.90 pr. $18 Mfr. List: *124.95 


THE SOFTWARE 

"Easy Script” One of the most powerful word pro¬ 
cessors at any price! Cut re-typing, create docu¬ 
ments from standard paragraphs, do personalized 
letters, see and change a document before it is print¬ 
ed. Instruction manual has extensive training sec¬ 
tion that simplifies use ... even for someone who 
has never used a computer or word processor before! 
''The Manager” A sophisticated database manager 
for business or home use. Business uses; accounts 
payable/receivable, inventory, appointments, task 
manager. Home uses: mailing lists, home inventory, 
recipes, collection organizer, investment tracking, 
checkbook balancing. School uses: research arti¬ 
cle index, gradebook. 

Mfr. List: *73.98 

Liquidation Price ... 


BUY INDIVIDUAL UNITS OR 
GET THIS ULTRA-FAMOUS 
SYSTEM AT ONE LOW 
PACKAGE PRICE! 

TOTAL Personal Computer System 
available at FAR BELOW dealer cost! 

*1,268.98 


$24 


Liquidation Price . 


Liquidation Price 





































DISK WORLD! is proud to introduce 
the lowest-priced, LIFETIME-WARRANTY 


fflQKffcttAQ oupr' 

And they’re BRAND NAME PRODUCT to boot! 


5.25" SSDD<4.79 ea. 5.25" DSDD-4.89 ea. 
5.25" DSDB-HD>4 S 2.35 ea. 

3.50" SSDD4 s 2.25 ea. 3.50" BSBB* S 2.B5 ea. 


Based on multiples of 100 each. 

Boxed in 10’s with heavy-duty cardboard sleeves, user ID lab 
reinforced hubs (where appropriate) and write-protect tab: 


At that time, Wabash diskettes wi 


i synonymous w 


Just saying tnat quality control was poor would be 
charitable. 

So much was wrong that DISK WORLD wouldn't sell them. 

That was yesterday. 

Kearney-National Inc., a $202-million division of a much 
larger company, came into Wabash. 

Out went the old management, the old methods, the old 
production techniques.. .and in went a lot of new people, ideas, 
production lines and some really imaginative thinking. 

Today, I'm proud to offer you the Wabash Pinnacle Series of 
diskettes at the prices shown. 

This isn't evolution in diskette manufacturing: it's revolution. 

Here’s what you get. 

Wabash Pinnacle diskettes are 
...certified 100% Error Free 
...are coverd by a LIFETIME WARRANTY 
...meet or exceed all industry specifications (by quite 
some distance) 

st value in diskettes available 



2. The people who buy "cosmos".. .stuff from major manu¬ 
facturers that usually hits quality control standards, but is 
cosmetically blemished and thus can't be packaged and sold 




re simply th 

The to 


Considering Wabash's earlier dubious reputation, I wasn't 
exactly a true believer when their Director of Marketing came 
into my office with samples. 

So I took a box at random, selected a disk, bent the thing 
every which way and slipped it into my IBM-PC. 

It formatted. It booted. It stored and retrieved data. 

That wasn’t enough, 
tmples of the diskettes to Curt Rostenbach and, in 
n Streit,. " 


irn, to Tom Sti 


ith hackers of 


ig experience and mi 


long exp . .. 

_of the Waukegan (Illinois) Apple Users Group. 

Tom really went at it. 

He took a quartz-halogen lamp, aimed it at the diskette 
it started to smoke (and melt)...and then formatted, bi 
the diskette and stored and retrieved data! 

The same terribly (and intentionally) mutilated disked 
on an ITT, Corona and IBM. 

Curt was nicer. 


The best buy I’ve ever seen. 

DISK WORLD!, Inc. sells more flexible magnetic media by 
mail-order than anyone else in the world. 

I, as President of the corporation, won’t tolerate a product 
with a failure rate of more than 1 /1000th of 1 percent. 

I also don't like companies who try to milk a "quality" or 
“premium" image for a higher price like Dysan and Verbatim 
did until they failed 

As President of DISK WORLD!, Inc., my motto is simple: "the 
best diskette for the least amount of money." 

Wabash is it. 

Right now, there is no better value than the Wabash Pinnacle 
Series of diskettes. 

Granted, you have to buy a hundred at a time, but so what? 
Split the order with friends, relatives, co-workers or even your 


mouth is. Our first order for Wabash Pinnacle Diskettes w: 
1.5-million units.) 

That’s an awful lot of faith and confidence. 

But, then again, I have the diskette that Tom Streit literally 
melted...and kept on running. 

The truth about $1.00 or less diskettes. 

More and more ads are popping up offering diskettes for 


ised cars a few months ago are now selling diskettes by mail.' 

We did a little survey of current ads for diskettes advertised 
or a dollar or less and did some analysis of the market and 
lere's what we found as it applies to 5.25” DSDD diskettes 
'supposedly" selling for a dollar or less. 

ACTUAL 

ADVERTISED PRICE ACTUAL 
VENDOR: LOW PRICE: PER 100: MFGR.: 

.89 ea. .92 ea. Unspecified. 

a. Unspecified. 

a. Unspecified. 

a. Unspecified, 
a. Unspecified, 
a. Unspecified, 
a. Unspecified. 


3. "Duplicator Quality". Uncertified media, usually below 
manufacturer's own standards and frequently below ANSI and 
IBM standards. Sold on an “as-is” basis with the understand¬ 
ing that the manufacturer's name will never be divulged. Usual¬ 
ly about a 20% reject rate...as compared to DISK WORLD'S 
standard of less than 1 /1000th of 1 % reject/return rate. Next to 
garbage, this is the source of most diskettes advertised at a 


.. Garbage. Stuff that shouldn’t be sold at all. But u...... 

manufacturers are hurting for cash, so they sell it anyway. 
(After all, they want to meet their payroll. Look what happens 
when you don’t: you become a Dysan or Verbatim. Lots of 
history, but no money.) More and more garbage is being 
dumped into the market as manufacturers become pressed for 
cash and are motivated into selling anything and everything 
they can manufacture. (Read the article in FORBES about 
Verbatim and its “Bonus brand.) 

Finally, the Taiwanese counterfeiters are moving into the act. 
Perfect duplicates of the packaging of major manufacturers 
with one exception: the quality isn’t there. 

The Critical Factor. 

Only DISK WORLD!, Inc. offers fully brand-identified, 
LIFETIME-WARRANTY product for less than a dollar. 

Every one else offering 5.25” product for less than a buck 
J —n’t tell you who makes it. 



Unitech 

Datatech .99 ea. 

Computer Club .95 ea. 

.99 ea. 

Communications 
& Electronics .49 ea. 

Precision Data .89 ea. 

Diskette Connec. .93 ea. 

Comp Soft Serv. .77 ea. 

Computer/Computer .99 ea. 
DISK WORLD .89 ea. 


The real truth about $1.00 or less diskettes. 

It costs all diskette manufacturers about the same to pro¬ 
duce a diskette. Some may charge more because they want to 
project a “premium quality" image, ala the late, lamented 
Dysan who bought their basic media from 3M. 

Some charge less because they r" —" - 


uct...and we're no 
But he ' 




he $1.00 c 


sub-standard prod- 
less diskette market, 
who simply are so big 


The key thing is to get the most diskette for the money. 
And this is it. 

(Incidentally, as a corporation, we put our money where oui 


.._... r catego' 

1. The DISK WORLD'S of the universe 

that they can buy first quality product in i_.__ 

choose to pass on the savings to you. (Precision Data 
Diskette Connection on BRAND NAME products also fall 


„_ of type o’_ 

PAYMENT: VISA, MASTERCARD and PREPAID orders 
accepted. Corporations rated 3A2 of better and govern- 
»—i —:-*-■- accepted 


id eggs" making life more 


on a NET 15 ba 

C.O.D. order_ 

charge. (Sorry for theinc 
been refusing C.O.D. ora 
classic example of a lev 
expensive for everyone else.) 

APO, FPO, AK, HI & PR ORDERS: Include shipping a: 
shown and an additional 5% of the total amount of thi 
order to cover PAL and insurance. 

No other non-continental U.S. orders are accepted. 
TAXES: Illinois residents only, add 7%. 

All orders subject to acceptance. 

Not responsible for typographical errors. 
ORDERS ONLY: 
1-800-621-6827 
(In Illinois: 1-312-256-7140) 
INQUIRIES & INFORMATION 
1-312-256-7140 
FOR FASTEST SERVICE, 

USE MCI MAIL: 

Just address “DISKWORLD” 
(24-hour shipping on any item in stock 
if you order via MCI MAIL.) 


DISKWORLD!, Inc. 


629 Green Bay Road 
Wilmette, Illinois 60091 
















Incredible value! 

Nashua. 

Diskettes 


97 c ' 

W ■ Qty. 50 


$107 e 

SDD I Qty. 50 


5’/«" SSDD 

I Qty. 50 5V<" DSDD ■ Qty. 50 

These are poly-bagged diskettes packaged with Tyvek sleeves, 
reinforced hubs, user identification labels and write-protect tabs 
NASHUA Corporation is a half-billion dollar corporation and a 
recognized leader in magnetic media. 

SOFT SECTOR ONLY! Sold in multiples of 50 only! 

FOR ORDERS ONLY: INFORMATION & 

1-800-621-6827 , ^'NQyiFtiES: 

(In Illinois: 1-312-256-7140) 1-312-256-7140 

HOURS: 8AM-5PM Central Time, Monday-Friday 

WE WILL BEAT ANY NATIONALLY ADVERTISED PRICE 
ON THE SAME PRODUCTS AND QUANTITIES! 


ATHANA 

DISKETTES 
The great unknown! 


You’ve used these diskettes hundreds of 
times...as copy-protected originals on some of 
the most popular software packages. They're 
packed in poly-bags of 25 with Tyvek sleeves, 
reinforced hubs, user identification labels and 
write-protecttabs^^ 


SOFT SECTOR ONLY! Sold in multiples 
of 50 only. 

FOR ORDERS ONLY: INFORMATION & 

1-800-621-6827 inquiries: 

(In Illinois: 1-312-256-7140) 1-312-256-7140 

HOURS: 8AM-5PM Central Time, Monday-Friday 

WE WILL BEAT ANY NATIONALLY ADVERTISED PRICE 
ON THE SAME PRODUCTS AND QUANTITIES! 
DISK WORLD!, Inc. 

629 Green Bay Road • Wilmette, Illinois 60091 


DISKETTE 
STORAGE CASES 



FANTASTIC LOW PRICES ON 

„ BASF » 

ra QUALIMETRIC fe) 
DISKETTES! 

LIFETIME WARRANTY! 


$114 ts» s , $131 

| Qty. 20 DSDD | Q, Y 20 

5'4" SSDD-96TPI - S1.46 ea. 5%" DSD0-96TPI - $1.75 ea 
PACKED IN CARDBOARD CASES! 

BASF QUALIMETRIC DISKETTES have a LIFETIME WAR¬ 
RANTY with Tyvek sleeves, reinforced hubs, user identification 

'^loFT SECTOR ONLY! 3 MINIMUM ORDER: 20 DISKETTES 
BASF 3.5’ MICRO-FLOPPIES BASF 5'4’HIGH DENSITY 
FOR IBM PC-AT 

5SS00-135 TPI - $2.34 ea. DSDD-HD - $3.14 ea. 

FOR ORDERS ONLY: INFORMATION & 

1-800-621-6827 , 'NauiRiE* 

(In Illinois: 1-312-256-7140) 1-312-256-7140 

HOURS: 8AM-5PM Central Time, Monday-Friday 
WE WILL BEAT ANY NATIONALLY ADVERTISED PRICE 
ON THE SAME PRODUCTS AND QUANTITIES! 


DISK WORLD! 

Ordering & Shipping 
Instructions 


Shipping: 5V<" & 3.5’ DISKETTES—Add $3.00 per each 100 er 
fewer diskettes. Other Items: Add shipping charges as shown in 
additien to other shipping charges. Payment: VISA and MASTER¬ 
CARD accepted. COD Orders: Add additional $3.00 Special Han- 


Prices subject to change without notice. 

Not responsible tor typographical errors. 
MINIMUM TOTAL ORDER: $35.00 

FOR ORDERS ONLY: INFORMATION & 

1-800-621-6827 inquiries: 

(In Illinois: 1-312-256-7140) 1-312-256-7140 

HOURS: 8AM-5PM Central Time 
Monday-Friday 

WE WILL BEAT ANY NATIONALLY ADVERTISED PRICE 


PRINTER 

RIBBONS: 


at 

extraordinary 

prices! 


LIFETIME WARRANTY! 

Epson MX-70/80 $3.58 ea. + 25® Shpng. 

Epson MX-100_$4.95 ea. + 25® Shpng. 

Okidata Micro83.. $1.48 ea. + 25® Shpng. 
Okidata Micro84.. $3.66 ea. + 25® Shpng. 

FOR ORDERS ONLY: INFORMATION & 

1-800-621-6827 inquiries: 

(In Illinois: 1-312-256-7140) 1-3 1 2-256-7 1 40 

HOURS: 8AM-5PM Central Time, Monday-Friday 

WE WILL BEAT ANY NATIONALLY ADVERTISED PRICE 
ON THE SAME PRODUCTS AND QUANTITIES! 

DISK WORLD!, Inc. 

629 Green Bay Road • Wilmette, Illinois 60091 



The best deal 
on 3M diskettes 
you’ve ever seen! 

:v 


FLIP N’FILE 15 
with every order 
for 5.25" SSDD and DSDD. 



$1.42 ea. - 5.25" SSDD with FREE Flip n’ File 15 
5.25” DSDD with FREE Flip n' File 15 -$1.74 ea. 

100% LIFETIME WARRANTY 

This is a Super Special promotion. It 
was supposed to end around the end of 
May. 

But we decided to buy more than 
1,000,000 3M diskettes packed in the 
FREE Flip n’ File 15’s.. and give you 
the benefits of this terrific value. 

One word of warning: this offer is 
limited only to supplies on hand. Once 
these supplies are used up, the prices 
stay the same...but there’s no free 
Flip n’ File. 

The last time we ran an offer like 
this, everything was sold out in about 
six weeks. 

So don’t wait. Order now. 

Other 3M diskettes: 

(Flip n’ File offer does not apply.) 


5.25' SSDD-96TPI 

. $2.06 ea. 

5.25" DSDD-96TPI. 

.. $2.57 ea. 

5.25 DSDD-HD for 

IBM PC/AT. 

.. $3.93 ea. 

3.50 SSDD-135TPI for 

Apple Mac . 

. $2.86 ea. 


DATA CARTRIDGES 

100% certified 3M data cartridges. 

DC-1000 .$13.90 ea. 

DC-300XLP.$19.83 ea. 

DC-600A.$22.13 ea. 

Sold in cases of 10 only. 

Add $5.00 shipping per 10. 









































WHITE HOUSE COMPUTER 

P.O. Box 4025, Williamsport, PA 17701 

“Where Prices Are Born, Not Raised” 

TOLL FREE 1 -800-351 -3442 

PA CALL 1 -71 7-322-7700 

— PA Residents FREE Shipping — 


IMONDAY - FRIDAY 9 AM - 6 PM 

VISA & MC ACCEPTED 4% 


POLICY: No deposit on COD orders. Free freight on all prepaid ca 
orders over $300 in the continental USA. APO & FPO add $5.00 f 
hundred. For priority mail add $8 00 per hundred. PA residents add f 
sales tax. Defective products must have Prior RA number. Schools net 1 


EPSON 

LX 80 .239.00 

FX 80 .339.00 

JX 80 479.00 

RX 100.359.00 

FX 100.489.00 

LQ 1500 995.00 

ATARI 

XTM 201 Non-Impact 

Dot Matrix.99.95 

XTC 201 Color Non¬ 
impact Matrix.109.95 

XDM 121 Daisy 

Wheel.209.95 

XMM 801 Dot Matrix 

STC 504 Color Non¬ 
impact.139.95 

STD 121 Daisy 

Wheel.219.95 

SMM 801 Dot Matrix 
Impact.279.95 

OKIDATA 

Okimate 10.179.95 

182.219.95 

84.640.95 

192 .349.95 

193 .525.95 


COMMODORE 

MPS 801.165.95 

802 .'99.95 

803 .165 95 

DPS 1 10'.295 95 

STAR MICRONICS 

SG 10.214.00 

SG 15.379.00 

SD 10.345.00 

SD 15.450.00 

SR 10.485.00 

SR 15.585.00 

Powertype..307.00 

LEGEND 

1380 .269.00 

1385 . 305.00 

1080.229.00 

880.199.00 

CITIZEN 

MSP 10.305.00 

MSP 15.450.00 

MSP 20.450.00 

MSP 25.575.00 

CARDCO 

LO 1 .365.00 

LQ3.209.00 

PANASONIC 

1090 .187.00 

1091 .237.00 

1092 .385.00 

1093 .425.00 

3151 .455.00 


UPrint/port. 

UPrlnt/16k Butter 

UPrint/64k Buffer.. 


PRINTER PAPER 

2500 Sheets 

Lazor Edge.24.95 


10 Shts Li 


14.95 


500 Shts 

Color Paper 
Assorted Pastels 

2500 Shts Lazor.42.95 

1000 Shts Lazor.23:95 

500 Shts Lazor.14.95 


SOFTWARE 

Print Shop.28.95 

Graphics Library I... 17.50 
Graphics Library II... 17.50 


VIDEO CASSETTE 
RECORDER 
$279.00 


DISK DRIVES 

ATARI 

Indus GT.205.95 

1050.164.95 

Happy 1050.31 

Happy Enhancer.1 

MSD Dual.459.00 


Indus GT.229.00 

1541 . 195.00 

1571 .249.95 

1572 .375.95 


MODEMS 

C-1650. 

C-1670 300/1200 . . . 1 
MPP 1064. 


MPP 1000E.... 69.95 


SKC 

SS/DD.10.95 

DS/DD.14.95 

BONUS 

SS/DD.9.50 

DS/DD.13.50 

MAXELL 

MD 1 .15.95 

MD 2.20.95 


Color 300. 

Color 500. 

Color 600 . 

Color 700. 

Color 710. 

31OA. 

ATARI 

XC 141. 

SM 124. 


MJ-22 RGB... 
SAKATA 

SC-100. 


...119.00 
...129.00 
.229.00 
... 339.00 
.. 399.00 
. 469.00 
. 539.00 
.145.00 

.199.95 


COMMODORE 

C-1702.185.95 

C-1902 RGB.259.95 

C-1901.129.95 


130 XE.139.95 

520 ST Monochrome 

& More.749.00 

520 ST Color RGB 
& More.870.00 


jvay- Professiona l 

* ^ HANDICAPPING SYSTEMS 


* PRESENTED BY PROFESSOR JONES • 


1 * 


GLD. Thoroughbred “Gold" Edition™ 

the serious novice. $ 1 ! 

EGLO. Enhanced “Gold" Edition™ 

^'Gold' Edition with complete Master Bettor™ system integrated onto the sami 

GLTD. Limited "Goli 



IBM™ 

APPLE™ 

TRS-80™ 

CPM™ 

COMMODORE™ 



Program Your Own EPROMS 
► cm 20 $99.50 


Pr °?l (!na ‘te . 



PLUGS INTO USER PORT. 

NOTHING ELSE NEEDED. 

EASY TO USE. VERSATILE. 

• Read or Program. One byte or 
32K bytes! 

OR Use like a disk drive. LOAD, 

SAVE, GET, INPUT, PRINT, CMD, 

OPEN, CLOSE—EPROM FILES! 

Our software lets you use familiar BASIC commands to 
create, modify, scratch files on readily available EPROM 
chips. Adds a new dimension to your computing capability. 
Works with most ML Monitors too. 

• Make Auto-Start Cartridges of your programs. 

• The promenade ™ Cl gives you 4 programming voltages, 
2 EPROM supply voltages, 3 intelligent programming 
algorithms, 15 bit chip addressing, 3 LED’s and NO 
switches. Your computer controls everything from software! 

• Textool socket. Anti-static aluminum housing. 

• EPROMS, cartridge PC boards, etc. at extra charge. 

• Some EPROM types you can use with the promenade ™ 


S3 


JASON-RANHEIM 

580 Parrott St., San Jose, CA 95112 





































































































presenting ... CAPTURE 

A NEW WAY TO UNLOCK THE POWER OF YOUR C64 OR C128* 

• CAPTURE IS A CARTRIDGE THAT PLUGS INTO YOUR COMPUTER’S EXPANSION PORT. 

• CAPTURE DOES NOTHING-UNTIL YOU PRESS ITS CAPTURE BUTTON. UNTIL THEN, A 

RUNNING PROGRAM CANNOT DETECT ITS PRESENCE. 

• CAPTURE THEN TAKES CONTROL — NO IFS, ANDS OR BUTS - AND PRESENTS A MENU. 

• CAPTURE WILL NEATLY SAVE EVERYTHING IN YOUR COMPUTER TO YOUR 1541 OR 

COMPATIBLE DISK DRIVE — ALL 64K OF RAM, CPU, VIC AND SID CHIP 
REGISTERS — EVERYTHING. IN EASY TO VIEW CHUNKS. 

• CAPTURE WILL, IF YOU WANT, PRE-CONFIGURE YOUR COMPUTER’S RAM SO THAT 

ONLY MEMORY ALTERED BY YOUR PROGRAM NEED BE SAVED. 

• CAPTURE WILL WRITE A BOOT ON YOUR DISK SO YOU CAN RELOAD AND BEGIN 

EXECUTION RIGHT WHERE YOU LEFT OFF. 

• CAPTURE DOES ALL THIS AT A COST OF JUST $39.95 

BUT HERE’S THE BEST PART 

• CAPTURE WILL MAKE AN AUTO-START CARTRIDGE OF YOUR PROGRAM. IT’S EASY! 

JUST FOLLOW THE DIRECTIONS ON THE SCREEN. NOW PLUG IN YOUR 
CARTRIDGE AND TURN ON YOUR COMPUTER. IN LESS THAN TWO SECONDS 
YOUR PROGRAM BEGINS AGAIN AT PRECISELY THE POINT WHERE YOU 
CAPTURE’D IT. MAGIC! 

BESIDES CAPTURE, YOU NEED A promenade Cl AND A SUPPLY OF CPR3 


CARTRIDGE KITS. 

ORDERING INFORMATION 

• CAPTURE CARTRIDGE-COMPLETE WITH INSTRUCTIONS. $ 39.95 

• promenade ci — eprom programmer with disk software. 99.50 

• CPR3 CARTRIDGE KIT — PC BOARD, CASE AND 3 EPROMS.. 29.95 

• DR—EPROM ERASER, TWO AT A TIME, 3 TO 10 MINUTES. 34.95 

• STARTER SET — CAPTURE, promenade Cl AND I CPR3. 149.95 

• deluxe set — capture, promenade ci, dr and 2 cpr’s. 199.95 


SHIPPING AND HANDLING — USA: UPS SURFACE $3.00 
BLUE LABEL $5.00 NEXT DAY AIR $13.00 
CANADA: AIR MAIL $7.00 OTHER FOREIGN AIR $12.00 

CALIFORNIA RESIDENTS ADD APPLICABLE SALES TAX 
COD ORDERS, USA ONLY, ADD $3.00 

C64 AND Cl28 TM COMMODORE ELECTRONICS, LTD. ‘WHEN OPERATING IN 64 MODE 


TO ORDER: TOLL FREE 800-421-7731 TECHNICAL SUPPORT AND 408-287-0259 

FROM CALIFORNIA 800-421-7748 FROM OUTSIDE THE US: 408-287-0264 



JASON-RANHEIM 

580 PARROT STREET 
SAN JOSE, CA USA 95112 













MEMOREX 

FLEXIBLE DISCS 

WE WILL NOT BE UNDER¬ 
SOLD!! Call Free (800)235-4137 

for prices and information. Dealer 
inquiries invited and C.O.D.’s 
accepted 


PACIFIC 

EXCHANGES 

100 Foothill Blvd. 
San Luis Obispo, CA 
93401. In Cal. call 
(800)592-5935 or 
(805)543-1037 



FREE CATALOG! 

Features Precision Tools and 
Equipment for Computers 



scientists, engineers, laboratories and 
government agencies. Call or write for 
your free copy today. 



QUALITY MEDIA Because we buy 
LIFETIME REPLACE in huge volume to 
GUARANTEE supply software 
HUB RINGS,TYV. EPS. manufacturers, our 
WRITE PROTECTS prices can't be beat. 


PC FORMATTED 1.45 


BLACKSHIP 

COMPUTER SUPPLY 
RO. Box 883362 • San Francisco, CA 94188 
Inquiries + No. Cal. orders 415-550-0512 
So. Cal. orders 800-235-6647 x31 


Add $3.00 shipping 


ales tax) VISA/MC/COD 


maxell disks 

LIFETIME WARRANTY 


TIRED OF WAITING 
FOR SERVICE AND PRICE? 

9 out of 10 SURVEYED 
DISK BUYERS PREFERRED 

NORTH HILLS 
#1 IN SERVICE AND PRICE 
1-800-328-3472 

Formatted and hard sectored disks 
in Stock-Dealer inquiries invited. 

COD, VISA, MASTERCARD 
All orders shipped within 24 hrs. 


M 


NORTH HILLS CORP. 
INTERNATIONAL 

3564 Rolling View Dr. 
White Bear Lake, MN. 55110 
.it—612-770-0485 


MN. 


3M Diskettes 
Lifetime Warranty 


TIRED OF WAITING 
FOR SERVICE AND PRICE? 

9 out of 10 SURVEYED 
DISK BUYERS PREFERRED 
NORTH HILLS 
#1 IN SERVICE AND PRICE 
1-800-328-3472 

Formatted and hard sectored disks 
in stock-Dealer inquiries invited. 

COD, VISA, MASTERCARD 
All orders shipped within 24 hrs. 

M4 W 

NORTH HILLS CORP. 
INTERNATIONAL 

. 3564 Rolling View Dr. 

Bear Lake, MN. 55110 
11 collect—612-770-0485 


Whi 


O Dysan 

•/CORPORATION 


from stock, within 24 hours. Call toll FREE 
(800) 235-4137 for prices and Information. 
Visa and Master Card accepted AD orders 




























































LEARN 

PROGRAMMING 



LEARN EVEN BEFORE YOU DECIDE ON A COMPUTER 

Everything is explained in simple language. You will enjoy learning-to 
use a computer-EVBI IF YOU DON'T OWN ONE Leam to program on 
any personal computer IBM, APPtf, C0MM000RE, TRS, and more. 


BE YOUR OWN COMPUTER EXPERT 



CENTER FOR COMPUTER EDUCATION 



COMPUTE! 

Subscriber Services 

Please help us serve you better. If you 
need to contact us for any of the 
reasons listed below, write to us at: 
COMPUTE! Magazine 
P.O. Box 10955 
Des Moines, IA 50950 
or call the Toll Free number listed below. 
Change Of Address. Please allow us 
6-8 weeks to effect the change; send 
your current mailing label along with 
your new address. 


Should you wish to renew your 
COMPUTE! subscription before we 
remind you to, send your current mailing 
label with payment or charge number 
or call the Toll Free number listed below. 
New Subscription. A one year(12 month) 
US subscription to COMPUTE! is $24.00 (2 
years, $45.00; 3 years, $65.00. For sub¬ 
scription rates outside the US, see staff 
page). Send us your name and address 
or call the Toll Free number listed below. 
Delivery Problems. If you receive dupli¬ 
cate issues of COMPUTE!, if you experi¬ 
ence late delivery or if you have prob¬ 
lems with your subscription, please call 
the Toll Free number listed below. 

COMPUTE! 

800-334-0868 

In NC 919-275-9809 


MUST LIQUIDATE! 

LIMITED INVENTORY OF ULTRA FAMOUS 

64K COMPUTERS 

AT FAR BELOW DEALER COST! 



Millions sold 
at regular prices . . . and 
STILL being sold at regular prices! 

Sorry, we’re NOT permitted to print the brand name. 
But if you phone us, all details can be divulged. 

Phone Toll-Free: 1-800-328-0609 

PLENTY OF SOFTWARE AVAILABLE! Thousands upon thousands of pro¬ 
grams are available for it from computer stores across the nation. 
FOR BUSINESS! This is an ideal entry level business computer. Use the 
computer for word processing, data base, accounts payable/receiv¬ 
able, general ledger, payroll, inventory, tax accounting, spreadsheets, 
mailing lists ... and much, MUCH more! 

FOR EDUCATION! Perfect for everyone from Ph.D. candidates to pre¬ 
school youngsters. A vast number of programs are available to 
challenge and educate the mind. 

FOR HOME! Use for analysis of personal investments, income tax plan¬ 
ning, storage of recipes and household data. And of course, there are 
hundreds of exciting, fast-paced arcade games available! 


Units sold SINGLY or 
in any combination 
you desire. 

Original 

List 

Price 

YOUR 

COST 

64K COMPUTER 

*200.00 

CD 

CO 

DISK DRIVE 

*269.00 

$148 

PRINTER oQ 

*200.00 

$118 

SSST TOTAL 

*669.00 

$365 


BAs'lc'Tn'terpreter) 5 T^x^cr 


DISK DRIVE 

Intelligent, high-speed. Exter 
nal 5V4" floppy diskette recor 
der. 2K RAM. 16K ROM. Maxi 

sided, single density disk. Sena 


Iressable. CBM ASCII 
jr codes. Original plus 
m of two copies. Paper 


Factory Reconditioned 
With Factory Warranty. 



C.O.M.B. CO.® 


| r sMtem n H-622 d 63S53.01 
;e^ ,P H P 62 9 2 h e38 d 31 9 00 a, 


delivery. Sorry, no C.O.D. 















































Classified 


COMPUTE! Classified is a low-cost way to tell over 350,000 
microcomputer owners about your product or service. 

Rates: $25 per line, minimum of four lines. Any or all of the first line set in capital 
letters at no charge. Add $15 per line for boldface words, or $50 for the entire ad set 
in boldface (any number of lines.) 

Terms: Prepayment is required. Check, money order, American Express, Visa, or 
MasterCard is accepted. Make checks payable to COMPUTE! Publications. 

Form: Ads are subject to publisher's approval and must be either typed or legibly 
printed. One line equals 40 letters and spaces between words. Please underline 
words to be set in boldface. 

General Information: Advertisers using post office box numbers in their ads must 
supply permanent address and telephone numbers. Orders will not be acknowl¬ 
edged. Ad will appear in next available issue after receipt. 

Closing: 10th of the third month preceding cover date (e.g., June issue closes March 
10th). Send order and remittance to: Harry Blair, Classified Manager, COMPUTE!, 
P.O. Box 5406, Greensboro, NC 27403. To place an ad by phone, call Harry Blair at 
(919) 275-9809. 

Notice: COMPUTE! Publications cannot be responsible for offers or claims of 
advertisers, but will attempt to screen out misleading or questionable copy. 



Mailing Label/Address File Program— 

for IBM PC and compatibles. Creates, updates, 
alphabetizes. Print options include by zip 
or city. Prints up to 4 across or continuous 
form index cards with phone #. $19.95 
plus $2 s/h. TX residents add $1.22 tax. 

D & L Software, 4636 Ringgold, Plano, TX 75075 
(214) 867-5695 


JDC Workstation—Word processor, typing service 
billing, & form letters all in one. Coded in 
ACTION! for easy customizing. Works with all 
48K Ataris. Machine & ACTION listing & 
manuals on Disks $100. JDC Software, P.O. Box 
941, Bryte, CA 95605 

COMMODORE OWNERS. Now create your own 
games, graphics and music in minutes 
instead of hours. Preprogrammed so 
everything is fast & easy. Create a 
game. Write a song. Sell it! Send 
$29.95 to: FreeSpirit, 5836 S. Mozart, 

Chicago, IL 60629. (312) 476-3640 


ATARI 800/XL/XE: Complete business program. 
All accounting, forms, mail, point of sale, word 
processing, etc. 8000+ records/disk. Demo disk 
$3. MICROMISER, 1635-A Holden Ave., 
Orlando, FL 32809 


TI-99/4A NEW STATES AND CAPITALS GAME 

Hi-Res map of USA. Send $12 for cass. or $1 for 
more info to: TRINITY SYSTEMS, 1022 
Grandview, Pittsburgh, PA 15237 

SPORTS POOL runs your football pool for 

the office or friends the fast & easy way. 

Handles all pool requirements for any 
sport and can be easily custom tailored. 

C64 disk $29.95, IBM-PC $39.95 plus $2 s.h. 
Bancom Systems, Inc., P.O. Box 1783, 

Dept. A2, Kankakee, IL 60901 


POSTMASTER! Finally, a simple, efficient 
mailing list program for C64 or C128. 
Print mailing lables. File up to 1600 on 
a single disk. Throw away your roladex! 
Sort, recall by name, zip, phone, etc. 

Send $19.95 to: FreeSpirit Software, 

5836 S. Mozart, Chicago, IL 60629 


The "Eight Puzzle," an A.I. program that tests 
your skills against the computer or another 
player, $10. E.C. 6287 Wall Triana Hwy., 
Madison, AL 35758, (205) 837-3158. 
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APPLE II SERIES, COMMODORE 64, TI-99/4A 
Discount Entertainment Software. Free Catalog. 
Newest Titles. The Adventure Store, P.O. Box 
320, Roscoe, IL 61073-0320 



Trade in your used Commodore or Atari on a 

brand new C-128 or Atari ST. This offer may not 
be available through retail outlets. Brochure 
$1.50 and SASE. NEW WEST TECHNOLOGY, 

4B Monroe Pkwy., Box 200, Ste. 134, 


Lake Oswego, OR 97034 



DISK SALE! SS/DD 35-trk for Apple w/sleeve & 
label-10/$7.20, bulk-100/$64. Standard SS/DD 
w/sleeve, label-10/$8.20, bulk-100/$74. DS/DD 
w/sleeve & label-10/$9.10, bulk-100/$83. 
PREMIUM QUALITY, LIFETIME WNTY! 
Money-back satisfaction guarantee! Min. order 
$15. Send check or MC/V/AE + $3 p+h, $2 if 
C.O.D. UNITECH, 20 Hurley St., Cambridge, 

MA 02141 (800) 343-0472, in Mass. 

(617) 864-8324 


EARN MONEY, PART OR FULL TIME, AT 
HOME with your computer. 50 page manual 
with forms. Money back guarantee, $9.95, 

JV Tech, P.O. Box 563, Ludington, MI 49431 

Online Usage: Do you have a message to share 
with other computer users (50,000)? Weekly rate: 
$4.50/line. State Category, Title (32 char.), 
message (38 char./line, max. 60 lines). Send 
check and copy to: E. YEE, FDR Sta., P.O. Box 
7729, NY, NY 10150 


TI-99/4A Software/Hardware bargain. Hard-to- 
find items. Huge selection. Fast service. Free 
catalog. D.E.C., Box 690, Hicksville, NY 11801 


FREE TO C64 AND 99/4A USERS! Brochure of 
new game and educational software. Send SASE 
to: Exelon Software, 20910 7th PL So., Seattle, 
WA 98148 


IS YOUR ORIGINAL SOFTWARE GOOD 
enough to sell? We can find a publisher for you! 
International Software Agents, Inc., 76 Milbank 
Ave., Greenwich, CT 06830 


Maxell MD1, $1.39 - MD2, $1.99. Dysan 
104/ID, $1.79 - 104/2D, $2.39. Shipping $3.75. 
Also Verbatim, IBM, 3M, BASF. TAPE WORLD, 
220 Spring St., Butler, PA 16001, 
1-8009-245-6000, Visa, MC. 
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INTRODUCING THE COMMODORE 128.™ 


It's here. And it's going to make a lot of 
Commodore 64'” owners very happy. 
A personal computer with a 128K 
memory and 80-column capability 
that's still compatible with all the 
peripherals and over 3,000 programs 
designed for the Commodore 64. 

In fact, the new 128 is almost like 
getting three computers in one. That's 
because it can run as a 64, a 128 and 
in a CP/M® mode. Or it can even be 
expanded to a full 512K memory. 

And that's about as "personalized" 
as a personal computer can get. 

It's intelligence that can match your 


own versatility. And then, even take it 
to a higher level. 

There's more than a bigger memory. 

There are a lot of extra features 
we didn't forget. Like a handy numeric 
keypad for data-entry efficiency 
and accuracy. 

An expanded keyboard that puts 
more commands at your fingertips for 
easier programming. So you can be 
a whiz at using more varied graphics 
and text. Or a musical genius playing 
full three-part melody in any tempo 
you set. And there's even a "help" key 


that comes to your rescue, listing 
programming errors on-screen with 
the error in reverse field. 

There's also a new faster disk 
drive. With a separate "Burst" mode 
that can transfer up to 3,000 char¬ 
acters per second. Just in case you're 
a speed demon. 

"Thanks for the memory! "You're 
welcome. And for the expandability. 
And compatibility. And versatility. And 
for making it all very affordable. After 
all, one of the other things that should 
go into a more intelligent computer 
is a price that makes sense. 


COMMODORE 128^ PERSONAL COMPUTER 


®CP/M is a registered trademark of Digital Research, Inc. 


A Higher Intelligence 


© Commodore 1985 








tROMA^: 


Our goal is to preserve classic video game magazines so that 
they are not lost permanently. 


People interested in helping out in any capacity. 

Please visit us a www.retromags.com 

>rofit is made from these scans, nor do we offer anything 
available from the Publishers themselves. 

If you come across anyone selling releases from 
is site. Please do not support them and do let us know. 


Thank you! 



